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% 

file auxcod(orgaux) 
%freeze control* 

(+qKf) +specit,prinspc CALL frzsav +ltspec,prmspc CALL frzst display {) 

GOTO (sj 

{+qka) CALL relall displayO GOTO isj 
%pointer control?^ 

(♦qplsl) CALL seeptr RETURN 

(+qpnl) CALL delptn RETURN 
END Of auxcod 
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% 

%pointers% 

(aelotn) PROCEDUREj 
delptX *■ Siriitllii 
c3elpt2 ♦• 0; 
WHILE 

aeipta < ptrtbi 
AND ptrtbfdelptz; # delptl 
DO (3elpt2 *"¥ 3; 
IF ptrtbfdelpta; # delptl DO-SINGLE Ubort $Sj 
delpt2 «>♦ 3; 

WHILE cielpt2 <» ptrtbi DO begin 
ptrtb/'.XH-3/ «■ ptrtb/"delpt2;j 

BUMP delpta END} 

Ptrtbi ♦•+ -3; 

RETURN END. 
(seeptr) PROCEDURE; 

clrdpyCO); BUMP opnfe; 

FOR seeptl FROM INC 3 TO ptrtbi DO BEGIN 
seept2«-LSH $8 (O^ptrtbrseeptl/ ) j 
seept3*-LSH i8(0,,BR)| 
seeptJi«-LSH $8(0,. BR); 
EXU prmspc; %for calls on aplit% 
CALL apllt (seept2) ; 
CALL aplit(seept3) J 
CALL aplit(seeptlt) ; 
CALL aplitJiasccr) END; 
Opnfg ♦■ 0; RETURN END, 
%frozen stateinentsf 
(frzst) PROCEDURE ; 

DECLARE frzst2 » (17,17, "FROZEN TABLE FULL"); 

%frzstl • paid % 

frzstl «• spsKdj 

.XR <■ Sfrzlst; 

WHILE .XR <B frzlsx DO BEGIN 

IF NOT tOf.XR; OH .AR .A 3777B * frzstl THEN BEGIN 
• AR ♦• BSH il(cdblnk,0); 
$0/,XR; *- LSH S12(cdtrn) ,V frzstl; 
cdtrn ♦• cdtrnl; 
cdlev «• cdlevlj 
cdblnk «• cdblnKl; 
dlblev «• numdpy (cdlev); 
dlbtrn «■ numdpy (cdtrn) ; 
cdrlev ♦• 0; 
RETURN END; 
EAX iir.XB; END; 
CALL dismes( Sfrzst2,2 ); 
RETURN END. 
(relall) PROCEDURE; 
relstl «- Sfrzlat; 
WHILE relstl <= frzlsx DO BEGIN 
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frelstli ♦• 0; 
BUMP relstl IND{ 
RETURN END, 
(frzsav) PROC; 
C(51evl«-cdlev| 
cdtrnl+'Cdtrnj 
cdblnkl^-cdblnkj 
RETURN END. 
%status% 

(sttus) PROCEDURE J 
EXTERNAL SttUSO; 
(SttUSO) I 

EXECUTE prmspc; EXECUTE rfbp2; 
IF todas THEN sttus2^1 ELSE BEGIN 

IF NOT .SKIP BRS $1 (, .lllOOOOOB ,V Sdpych) DO-SINGLE CALL 

rerror; 

Sttusa* ,ARJ CALL ClralKO) END; 
BUMP opnfg; 

sttusl«-BRS $lli3 (,10010b, IF rffn THEN ,AR ELSE curfn) ; 
IF rffn THEN BRS fSllC'STHlS A A WORKING COPY/" ,-l,Sttus2) ; 

CIO sttus2{73B)j BRS «31;(Snlsv¥d,3,sttus2) J 

CIO sttus2(lliB) J CIO sttus2(0)j 

BRS $36(ne(Ssi5,10,sttvJs2); CIO sttus2(7SB)j 

IF todas THEN CALL crlf ELSE CIO SttUS2(15SB)j 

BRS S31|("*FILE SIZE! /%-l,sttus2) ; 

BRS $36(sttusl,10,sttus2); 

BRS $3lt{" WORDS, /",-l,sttua2) J 

BRS $36(sttusl/256,10,sttus2) J 

BRS $3k(** DRUM BLOCKS/", -l,sttUS2) J 

usa3*-us<lii.<««stn2»3+Sj 

BRS $3k{»$FILE OWNER /%-l, st,tus2) ; 

IF NOT .SKIP BRS $10S {usa3, USdk,f uno) THEN .BR <-.ARj 

BRS $35(.AR,.BR,sttUs2)s 

BRS $3k('*» CREATED /» ,-l,SttUs2) i 

CALL typdat(fcredt) J 

BRS $3Ji("«LAST WRITTEN BY /", -l,SttUS2) J 

BRS $33^(»finit,3,sUus2) J 

CIO sttus2(0); CALL typdat (Iwdat) ; 

BRS $36(bl(lwtim),10,sttus2); 

IF b2(lwti!n) <« 9 THEN CIO sttUS2(20B)J 

BRS $36(b2(lwtim),10,stt,us2) J CIO sttus2(32B); 

BRS $36<b3(lwtim),10,sttus2); 

BRS S31t("SNAME DELIMITERS ARE /•',-l,SttUs2) J 

CIO sttus2(7)j CIO sttus2(nai!idll)i CIO sttus2(7); 

BRS f3Ji(" AND /'',-l,9ttUS2)j 

CIO sttua2(7)J CIO attus2(namdl2)j CIO sttus2(7)j 

IF todaa THEN CALL CTlf ELSE CIO Sttus2 (155B) ; 

usdl«-0; 

FOR sttUSl FROM INC 1 TO rsvstl DO 

IF rsvst/'sttusi; « THEN NULL 

ELSE BEGIN 
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lO(3rsv(LSH $8{sttusl,0) ){ 

usfSi «-+ iRSH »2(firrfbs/"rsvstrsttu3i;;;-6) endi 

BRS $36{usdl,X0,sttua2){ 

BRS $3k(" STATEMENTS IN FILE, APPROX, /%-!, Sttus2> J 

BHS »36( (rals-9)*3»usdl/7*10,sttus2){ 

BRS $3ki" WORDS OF TEXTS/ % -1, Sttus2) i 

BRS S36(tnsg,10,sttus2) ! 

BRS S3)i(" STATEMENTS GENERATED, AVE LENGTH s /",-l,sttUS2) ; 

BRS $36({rals-9)#3,10,sttus2) J 

CALL usedC'fFILE BLOCKS; /",irfbs,rf bstl) ; 

CALL useaCiTEXT BLOCKS: /",Ss(abat,s<3t>stl) j 

CALL useaC'iSTEUCTURE BLOCKS: /'',Srsvst,rsvstl) J 

CALL usea("$VECTOR BLOCKS: /«,$V(lbst,vdbstl) { 

BRS $311. ("iPO INTERS: /•',-l,SttUS2) J 

BRS $36(<ptrtbl+l)/3,10,sttus2) J 

CIO SttUS2(17B)j 

BBS $36((ptrtxn+l)/3,10,sttus2); 

IF todas THEN CALL crlf ELSE CIO sttus2 (15SB) j 

opnfg «• Oj I any sbr END. 
(used) PROCEDURE (usdl,usd2,usd3)i 

BRS S3li.(.AR,-l,stt,us2); 

usdli ♦• Oj 

usdS *• usd3+usd2; 

FOR usdl FROM usd2 INC 1 TO UsdS DO 
IF /"usdi; # THEN BUMP usdli; 

BRS $36lusdl|.,10,sttus2) } 

CIO Sttus2(17B)5 

BRS S36(usd3+l,10,sttus2); 

RETURN END, 
(bl) PROCEDURE? 

RETURN ( LRSH $16UAR)) END. 
{b2) PROCEDURE? 

RETURN ( LRSH S8(.AR) .A 377B) END, 
(b3) PROCEDURE; 

RETURN ( ,AR ,A 377B) END. 
(typdat) PROCEDURE (typdtl); 

BRS $36 (b2 (typdtl), 10, sttus2); 

CIO sttus2(17B); 

BRS $36(b3(typdtl),10,sttus2); 

CIO sttua2(17B)j 

BRS $36(bl(typdtl),10,sttua2); 

CIO 8ttus2(0); 

RETURN END. 
%input, open-file, time»date, alarm clock forks* 
%»**»#*»»#f ork character input routine»»»*»***lS 

(inptfs) %This routine accepts a character in the A, and puts it 

into the input buffer. 

It checks to see if the input buffer is wrapping around, and 
resets the input buffer pointers if it is 

if the input buffer is full, then it returns if an input fork 
is not running. 
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If, however, there is an input fork running, then it waits 
for NLS to empty the buffer, and then continues, (NLS waits 
for an interrupt from inptfs when an input processor is 
running and the input Puffer is empty) 
It then stores the character into the input buffer, and updates 
the input buffer pointer. 

If inptc is waiting for a character from inptfs, then it 
interrupts the main fork to re-activate the main fork 
(interrupt 7) 
% 
PROCEDURE! 

,XR «• ,AR| ^character to be input% 

%get address of position of next slot in input buffer^ 
inpfsl *• inptbi+lj 

IF inpfsl >s inptbe THEN inpfsl 4- iinptbf j %buffer wraps 
aroundf 
%check to see if buffer is full% 

IF inpfsl = inptbo THEN BEGIN %buffer is full% 

IF NOT paslfg DO-SINaiE RETURN; %i?nore character if 
input fork is not running (which way not be a very good 
idea)% 

WHILE NOT inptfg DO 8RS Sk5 END; %wait for main NLS fork 
to empty input buffer if input fork is running^ 
%put character into input buffer and update pointer?^ 
Tinptbi; <- .XRj 
inptbi «• inpfslj 
%check to see if input fork is running, and main fork is 
waiting for an interrupt% 

IF inptfg THEN %create interrupt seven% 
BEGIN ^interrupt wain fork% 
inptfg ♦■ Oj %clear flag% 

IF NOT .SKIP BRS #79(7) DO-SINGLE rerror ( ) END; fcause 
interrupt seven% 
RETURN END. 
%##*»###»input fork***»«»»% 

(inptf) % This is the input fork control routine. 

It runs whenever NLS is running and there is no input processor 
It reads a character from the work station input buffer, 
checks to see if it is a rubout 

If it is a rubout, then a check is made to see if it is the 

second consecutive one. 

If it is the second consecutive one, the main fork is 

interrupted so-as to terminate NLS (intrS), and the input 

fork terminates itself 

If it is not the second consecutive one, the following 

actiions are taken: 

clear the input buffer 

If an output processor is running, then interrupt the 

main fork (interrupt 10) 

If the main fork is busy with a long process which does 

not require input, (indicated by flag rubtbt), then the 
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rubout flag is incremented, 

otherwise the rubout is passed on to the wain fork in the 
input buffer 
If the character is a command accept, then it is translated 
to a -1, and the mouse co-ordinates are saved 
The character is put into NLS's input buffer by calling 
inptfs 
% 
PROCEDUREj 

%input fork% 

EXTERNAL inptfl, inptf3j 

%#»»»«*»»»*#**startini location for input fork**«*»**»«»»«*« 

(inptfl) J LOOP BEGIN 

inotfl *■ inptlOj fget next character from w,s. buffer?^ 
IF .AR s 1000137B THEN BEGIN %rubout« 
inptbo ♦■ inptbii %clear input buffer* 
IF inptrf THEN BEGIN fthis is the second consecutive 
rubout% 

IF NOT .SKIP BRS $79(5) DO-SINGLE rerrorO; IJinterrupt 
main toTK% 

BBS ilO END J ^terminate ( self-destruct )% 
IF OUtffg AND NOT .SKIP BRS $79(10) 

DO-SINGIE CALL rerror; ^interrupt main fork if output 

processor running* 
IF rubabt THEN BEGIN %NLS is doin(? something long and not 
reading chaacters* 

BUMP inptrf J ^increment rubout flag% 

GOTO inptfl end; %fo read next character* 
END 
ELSE BEGIN 

inptrf «- .BR *■ Oj %clear out rubout flag* 

IF .AR a lOOOlliliB OR .AR = kOOOOOlB THEN BEGIN *coramand 

accept* 

inptmr+'inptciti; *save mouse coordinates* 

inptpr*— 1 END; %translate into -1* 
CALL inptfs (inptfl) *pass character to input buffer* 

ENDJ 

END. *of input fork control* 
(inptl) *This is the lowest part of the input fork. 

It runs at any tine during which NLS is running (not TODAS) and 

an input processor is not running. 

It reads a character from the keyboard when the main fork of 

NLS is busy at some task, and returns with the characte in the 

A register. 

It returns one character each time it is called 

* 
PROCEDURE; 

*low priority- lowest level input routine* 

LOOP BEGIN 

*check work station input buffer to see if it has any 
Characters in it, and read the first one if it does* 
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WSI ttynoj 

%WSI returns the following: 
A register: 
A. fOtO; ■ 
A, f 1:57 « device indication 

1 ■ keyboard 

2 as keyset a 

3 a keyset b 

Ij. » right mouse button 

5 B center mouse button 

6 s left mouse button 
A.[6i3J 9 input buffer state 

B character read and input buffer now empty 

1 Input buffer empty, .no character returned 

k B more charaters waiting in the input buffer 

2 or 6 » more characters waiting in the same 
sampling interval 

A.f9:lS/ ■ character or position of mouse button 
(Osup, iBdown (I think)) 
B register: 

Mouse co-ordinates at time character read 
X register: 

value of clock (real) at time character read 
% 
IF .AR NOB lOOOOOB THEN BEGIN «a Character read., return it?E 
inptlc *- .AR .A 7707777?Bj %character% 
inptcm ♦" .BRj %mouse co-ordinates* 
inptcl •" .XBj%time% 
RETURN (inptlc) END; 
%by here, no character read.. wait for wsi buffer not-empty* 
inptfa ♦• Oj Preset input fork active flag* 
BRS i-10(,,ttyno) J %set up b register for dismissal on 
work station buffer not empty* 
BRS S72{,,3); *dismiss on queue 3* 
*input fork reactivated from disiissal,. there is a character 
in w.s. buffer* 

BUMP inptfa *set input fork active flag* 
*go back to start and read character* 
END; 

NULL END, 
;«»»***#»time and date fork******^** 

(TADFK) *This is the time and date fork. It dismisses itself for 
ten seconds, and then reads the time and date from the system, 
into the proper display buffer. It does not read the date from 
the system is OPNFG is set, but waits until it is false. This is 
because reading the date and opening a file at the same time 
crashes the TSS system, OPNFG is set by all file opening 
routines,* 

PROCEDURE J *time and date fork* 
EXTERNAL tadfkli 

(tadfkl): 
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WHIXE opnfg DO BRS SUSJ 
BBS $91(S(Sll3ta<a#3-l,.AB); 
BRS $81(10000)5 
GOTO tadfKl END. 
$*#»*###i»alarra fork***'»***% 
(wtforK) PROCEDUKEj 
%alarfn wait tork% 
EXTERNAL wtfrlcl; 
(wtfrKl) : 

IF .AR > THEN BRS $81{.AR)J 

WHILE NOT inptfg OR outffg OR paslff DO BRS «ii5j 
IF NOT .SKIP BRS S79(8) DO-SINGLE CALL Terror; 
BRS «10 END. 
«»«#»*passl rubout fork«»#»»*% 

(cnkrub) %Thi8 routine watches for rubouts comini? from the 
Keyboard when an input processor is running 

If it finds a rubout, it clears the input buffer ana passes the 
rubout on to the uain fork% 
PROCEDURE; 

%check for rubout« 
EXTERNAL chkrbl; 
(chkrbl) i 
LOOP BEGIN 

WSI ttynoj %read character* 

IF .AR CB lOOOOOB THEN BEGIN %no Character, .wait for one* 

BRS i-10(,,ttyno); BRS $72 END 
ELSE IF .AR .A 77077777B « 1OO0137B THIN BEGIN %rub0Ut read* 
BRS $57; ^guarantee 16 as running time* 
inptbo ♦■ inptbi; «clear input buffer* 
inptfs(1000137B) ; %pass rubout along to main fork throu 
gh input buffer* 

*When input processors other than passl are immpielented, 
a check shoulia be made here to see if rubabt is set. 
If it is set, then the main fork should be terminated 
along with the input processor* 
BRS aiO END END END. 
*xerr & reset* 

(xerror) PROCEDURE; 
DECLARE 

erri!iO«(k.li. "ERROR"), 
er^ffll»(l)!^,ll^,"FILE COPY fails"), 
errra28 (17,17, "OPEN scratch FAILS"), 
erra3i8 (18,18, "CANNOT LOAD PROGRAM"), 
errali»(8,8,"I/0 ERROR"), 
errmfis (16,16, "EXCEEDED CAPACITY"), 
errm?" (13,13, "BAD FILE BLOCK"); 
DECLARE 

abfflesO»(li,l^, "ABORT"), 
abmesl* (11,11, "NO SUCH NAME"), 
abmes2s (13,13, "MO SUCH NUMBER"), 
abines3« (16,16, "DUPLICATE POINTER" ) , 
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abmeslis{ll^,lli,"NO SUCH POINTER"), 

aOinesS* (13, 13, "ILLEGAL ENTITY"), 

abraes6s (13,13, "STRUCTURE FULL"), 

abmes7« (13,13, "TEXT AREA FULL"), 

abines6»(7,7,"BAD FILE"), 

abines9» (17, 17, "STATEMENT TOO LONG"), 

abmslO»(8,8,"TOO LARGE"), 

abmsllB (11, 11, "SYflTAX ERROR" ) , 

abmsl2s ( 11 , 11, "ILLEGAL MOVE" ) , 

abmsl3= (13, 13, "ILLEGAL DELETE"); 
DECLARE fatness (10,10, "FATAL ERROR") J 
DECLARE 

errmesa (errmO,err!iil,errm2,errtR3, 

errittlj.,errm2,err!ij6,errm7) ; 
DECLARE 

abmesB (abnesO,abinesl,abjnes2,abraesl, 

abmes3,abmesli,abmes5,abffles6, 

abnies7,abmes8,abroes9,abinsl0,abmsll, 

abnsl2,abmsl3, abmes0)j 
EXTERNAL xerr,xrerr,xabort J 
(xerr) ; 

CALL aiswes(errmes/'rerrn;,2) J CALL resnls; 
(xrerr) s 

BRS $3lt ("tOOPS ",6,1) i SKR stackp; BBS f 36 ( fstacKpi ,6) ; 
IF NOT exp THEN BEGIN 

CALL dismea ($fatn!es,l) J 

crfnml «■ icrfnm*3-lj 

crfniB2 ♦■ crfnml+ll; 

IF NOT .SKIP BRS f 16 (1100000B,$crf nn!l,0) DO-SINQLE HLTj 

SI ♦• ,ARJ 

$2 «■ Sxrerr; 

S3 ♦■ 0; 

ill, «. 37777B; 

$5 «. •!• 

BRS $91(10B»3"1,.AR) J 

$20B *• rlrli 

$2lB <■ rlr2j 

CALL oviapg (,,$r£bp2) J 

CALL ovldpg (,,trfbpl) J 

IF NOT .SKIP BRS f 93 (2,irlrl,fl) DO-SINGLE HLTj 
BRS $20 ($1) END; 

CALL intrSj 

(xabort) t 

CALL (3isBies(abmesrrerrn/,2) J 

CALL resetlj 

IF NOT todas THEN BEGIN 

EXECUTE inpfbk; CALL Uloff END} 
CALL ovlio(abtgt-l) END. 
(resetl) PROCEDURE; 

FOR smtenp FROM INC 1 TO rficbx DO 

frzcpt/smtepp/ ♦• "1; 
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Opnfg ♦• Oj 
CALL rlblrf J 

RETURN END. 
(reanls) PROCEDURE; 
QktL resetlj 

IF paslffj DO-SINGLE CALL xintr9j 
IF OUtffg THEN BEGIN CALL rlsall; 

CALL gtembk END; 
GOTO gps END. 
.FINISH Of AUXCOD 
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:RECINT, 11/06/69 l6SUr33 WSD 3 

1 %Descripion of the RECINf overlay 

la The RECINT overlay contains MOl code for Inltilization and for 
continuation (recovery) of NLS. It is normally relabeled out - it is 
only in to initialize, restart, or start some special overlay or 
fork, 

lb This overlay is read-only and shared. % 

2 % recint overlay .DSNslj .SCRslj .int>*3;% 

%declarations% 

SET riflOO %this should be the address in data%j 
DECLARE origin/"7777B;i 
POP err«l75B, any«177B, sbc»107B; 

DECLARE EXTERNAL patchn«0, expsl; %patch number, experimenal 
flagf 

DECLARE 

icortb* (tprmsp,tsdbinn,trecin,tutilt, 

tinpfb,tioctl,tseqge,ttxted) , 
icortSa (tlnRsu,tdiddl,tKeywd,tauxco, 

tstrinn,tcdspl,tclnup)', 
icort3« (tvcted,tvctrl,tmnctr) , 
icortlis(tcacrap,tcalc) , 
icortS* (ttodal,ttoda2) ; 

LOCATION FOB TEMPORARIES rit; REENTRANT! 
^initialisation of data areas% 

(setrsv) %This routine sets the ring status block to zeros, f 
PROCEDURE; 

FOR aetfll FROM INC 1 TO rsvstl DO rsvst/"setfli; <• Oj 
RETURN END, 
(setsdb) fThis routine sets the SDB status blocK to zeros. ^ 
PROCEDURE; 

FOR setfll FROM INC 1 TO sdbstl DO sdbstrsetfli; *■ Oj 
FOR setfll FROM INC 1 TO vdbstl DO vdbstrsetfllj <- 0; 
RETURN END. 
^procedures for playing gaies with relabelling and PMT% 

(rlsall) %A11 output pages are released by calling this 
procedure. First, it terminates th output forK if it is running, 
and closes the output file,% 
PROCEDUBEj 

IF ,NEG outfp6 THEN BRS $32 ($outf pt) j fstop the fork if it 
is running* 

IF OUtffg » 1 THEN BEQIN ^processor* 

BRS $121(tOUtv0) J BRS $121 (toutvl) ; BRS ®121(tOUtv2) ; 
BRS $121(toutv3); BRS il21(toutvU) J BRS $121(tOUtv5) j 
BRS il21(toutv6); BRS $121(toutov) END 
ELSE BEGIN % pass li % 

BRS «121{tpllc3)S BRS $121(tpllC0d)j BRS $121 (tpltdat) J 
BRS Sl21(tpliC2)} BRS f 121( tpl|.ary) END; 
RETURN END. 
(rlblrf) %RECINT fits in the sane page position as one of the 



RF blocK pages. Hence on returning from any code in BECINT it is 
necessary to get the RF blocic pages relabeled back in, This 
procedure does that. Helabeling does not take place, but the 
internal relabeling is changed so that when the next overlay call 
takes place, the RF blocks are in.% 
PROCIDURE; 

^relabel in random file blcocks% 
BUMP ovrelfj ovldpg(,,$nrfbpl); ovldpg {,,$nrfbp2) ; 
RETURN END. 
(makro) ^Given a relabeling byte in the A, this procedure 
wakes that page read only, % 
PROOEDUREj 

RETURN (BRS $80 (.AR .V atinro) .A 77B) END. 
(getpag) %This PROCEDURE is CAtLed to obtain a new page of 
memory. The relabeling byte for the new page is returned in the 
A, and the new page is left relabeled into page seven, % 
PROCEDURE; 

%get a new page froiti system, return rl in a% 
BBS $k3()j 

COPY {AB,BA)J ,AR ♦- ,AR .A 77777700B; 
COPY {AB,BA); BRS tlil^O; 
S37777B <- Oj BRS $k3{)i 
RETURN(,BB .A 77B) END. 
(gteiRbk) PROC; 

%at initialization orafter PROCess, get pages from nlsfS, 
nlsf3% 

%first release any processor pages which may be ±n% 
BRS Sli,6; %turn rubout off% 
setinl «- $toutvO-l; 
WHILE setinl*setinl+l <» toutvS DO 
IF /setini; THEN BEGIN 

BRS Siain; /setinl7<-0 END; 
%now get NLS pages back^ 

IF todas THEN BEGIN % read in file with todas pages% 
IF NOT .SKIP ldsbsy('MNLS)/XliNLS",ll,6) DO-SINGLE 
rerrorO ; 

COPY UB,A); 

/"/icortS+O/; ♦ makro (LSH $60); % todas main 
control* 

/■/icortS+l/^ *■ makro (LSH $6(0)) % todas support page 
one* END 
ELSE BEGIN 

IF NOT .SKIP ldsbsy(MNLS)/X2NLS%ll,6) DO-SINGLE 
rerror (); 

setin2 ♦• ,AR{ setin3 *• .BRj 

r/icort3+0/; *■ nakroaSH i6(0,setin2) ) 5 *vctedt« 
r/icorts+l/; ♦• i!isakro(LSH ®6{0))j %2vcted* 
t/±cort3*2/J *■ makro (LSH $6(0)) %mnctrl% END; 
IF NOT .SKIP ldsbsy("(NLS)/X3NLS'Ml,6) DO-SINGLE CALL 
rerror; 

setin2 *• ,ARj setin3 «• .BR; 

f/icortlt+O/; *■ LSH $6{0,setin2) ; ^content analyzer* 

/■/icortli+l/; «• LSH #6(0); ^calculator* 



OUtffg ♦• Oj 

BRS $kli %turn rubout back on% 
RETURN END. 
(rlssojn) PROCi ^release all frora nlsf2 and nlsf3% 
IF todas THEN BEGIN 

BRS ilj,6j %turn off rubout.% 
BRS S121{ttoaal) I %toaas main control^ 
BRS $121{ttoa.a2) %tocias support paee 1% END 
ELSE BEGIN 

BRS $121(tvcted) J BRS $121 {tvcte2) j 
BRS S121(tJT!nctr) END; 
BRS S121(tcacinp) J BRS 31121 (tcalc); 
BUMP outffgi 

BRS $k7l %turn rubout bacK on% 
RETURN END. 
(Idsbsy) PR0CEDURE{,setln3,setinl) J % load 
sub-system (name, length) % 3clla %a contains address of file name% 
%b contains number of characters in file nane% 
%x contains number of characters to delete if not 
experimental* 

%sKip return with relabeling in AB if successful^ 
setin2 «- ,AR»3-1; setin3 *•+ .ARj 
IF NOT exp THEN setin2 *■* setinl; 

IF NOT .SKIP BRS ilOO ( ,$setin2,-l) DO-SINGLE RETURN} 
SKIP RETURN END, 
?&procedures for starting forks% 

(stotfk) *This routine simply starts the output fork (without 
executivity) ,% 

PROCEDURE (OUtfpt) ; 

RETURN (BRS $9(Soutfpt .V 02000000B) ) END. 
(setalm) *The alarm fork is started by calling this 
procedure. It assumes that the time is in the spec stack. The 
time required to wait (in ma,) is obtained by calling TIMMS with 
the current tine. The fork is then started with that time in the 
A. Control is returned by going to the previous state. % 
PBOCEDUREi 

EXTERNAL stalrm,stwf k,stti!nri 
(stalrm) : 

wtfpl^-alrmwt ♦• tiiinns(8RS $39); 
(stwfk) : 

IF ,NEG Wtfp6 THEN BRS ®32(«wtfpt)j 
wtfpt *• Swtfrklj alrmst «• BRS Sk2| 
BBS $9(Swtfpt .V 26OOOO00B); 

CALL ovldpg(,,$rfbPl) J BUMP ovrelf; GOTO fps{ 
(sttimr) s 

wtfpl*-alrKwt ♦■ timms(,0); GOTO stwfk END. 
(timias) %k time is provided in the B (3 8-bit bytes of hr,, 
min., sec). The difference between the tiwe in the spec stack 
(hr., min., sec. from the bottom up) and this given time is 
returned in the A, in ms.% 
PROCEDURE^ 

WHILE inptmO not* '«■ DO NULLj 
CALL dismes(,0)j RETURN END. 



(setnls) %Tht8 routine arms the pseudo Interrupts, starts the 
input fork and the time and date fork, and clears the input 
buffer. % 

PROCEDURE^ 

CALL rlblrf; BHS $78{intmsk)j inpfpt <• iinptfls inptrf«-0; 
BBS S9{f inpfpt .V 66O0O0O0B)i tadlpt «• itadfklj 
BRS S9{»tadfpt .V 260000008); TOO ISSBi TOO 152B; 
IF NOT ttyinf THEN iRS $ll{,,ttyno) J 
%clear input buff% 
RETURN END, 
^procedures for processors* 

%procedures for ordinary processors (compilers, pssst, etc)% 
(waitbs) %Waitbs reads characters until a back arrow {♦■) is 
typed, and then returns, % 
PROCEDURE? 

timmsl4.LSH $d(0)j timmsS^-LSH S8(0)i tinns3<-LSH $6(0)j 
RETURN { 

{ I {Sl/'spsK/-timinsl)*60 
+$3^spsk;-tiinis2) #60 
+tS/SPSk;-tifflins3)*1000) END. 
(setpsl) %The insert QED branch command in impleiented here. 
This procedure puts up the reading text message, and restarts the 
input fork with the page containing PASSl relabeld in, and the 
PASIFG set. It then does an overlay CALL to QIB in STBMNP,% 
PROCEDUREj 

DECLARE plmes « (19,19, "BEADING TEXT — WAIT"); 

EXTERNAL setpll; 

SET tpasslBtcalc; 

(setpll) : 

IF NOT .SKIP ldsbsy{"(NLS)/NPASSl",12,6) DO-SINGLl lerr 



»llj 



END; 



toutov^.BRi-tcalc; ?5kludge to save rlbl byte* 

tpassl4-LRSH $18(,AR); CALL dismes (Spines, 1) ; 

BBS $32(Sinpfpt); EXECUTE auxcod; 

inprll^-inpfpli; XMA rlrl; setina^-.AR; 

inprl2*-inpfp5j XMA rlr2; setin3^,AR; 

setfll«"Cortb/'passl ,A 7/; 

CALL ovldpg(,,$passl); CALL ovldpf {,,iauxcod) ; 

.AR^-setinZ; XMA rlrl; inpfplt«-,AR; 

,AR*'setin3; XMA rlr2; inpfp5*-.AB; 

paslfg*-l; CALL ovldn(,,setfll) ; BUMP ovrelf; 

outfpt^-Schkrbl; BRS S9($outfpt ,v 1^1^000000B) ; 

inptbo+'inptbi; inpfpt<-#inptf3; inptfg^-inptrf^-O; 

BRS $9(Sinpfpt .V 66000000B); 

IF todas THEN BEGIN CALL rlblrf; tsov todinnc; Ibrv instil 



isov prmspc; Ibrv qib END, 
(inprc) %This is the procedure which is used for starting up 
the input processors 

It expects four parameters: 

spak/"!/: address of a-string containing name of 
processor 

spak/"3/: address of cell in overlay table which is to 



be execute upon istart of processor 

BpaKtSJi starting address for processor 
spskn/s parameter to be passed to processor 
It perforis the followlngfunctionss 

read relabelling of processor into PMT and stores into 
tinppO-tinppS 

stop the input fork 

if NLS is running, start the output fork to check 
rubouts 

clear the rubout and input in progress flags (inptfg, 
inptrf). 

start up input processor fork 
branch to idle loop in main control 
% 
PROCEDUREj 

lodprc(«l/'spsk;) J outffg*-0; %get relabelling of processor% 
apsr {Sproeral.t^irspski ) ; 
dismes($l/"spsk7,l) J ^display messaged 

inptfgt-inptrf^Oj %clear out input in progress and rubout 
flags% 

IF NOT todas THEN BEGIN 

outfpl). «• LSH $18 (tdata,tauxco) ,k 77000000BJ 
^relabelling for data pae% 
,AR *- LRSH $6; 

outfpS ♦• •BR;Srelabelling for auxcodf 
outfpti-fchkrblj 

BRS #9(Soutfpt .V 6ii.0O0O00B) %8%%rt fork and set 
relabelling from panic tabled 
ENDj 
inpfpt *■ Sinprsi 

BRS $9(®inpfpt .V liOOOOOOOB); %start up fork% 
IF todas THEN BEGIN 

Isov todasl; Ibrv reset ENDj 
isov mnctrlj Ibrv crodrstf 
%#**»start of input processor fork#*«**% 
(inprs) ! 
END. 
(outprc) % this is the procedure which is used for starting 
up a processor. 

It expects four parameters! 

BpsktUt address of a-string containing name of 
processor 

sp3k/"3/: address of cell in overlay table which is to 
be execute upon start of processor 

spskTS^J starting address for processor 
spskT?}: parameter to be passed to processor 
This procedure relabels in the processor (after releasing 
PMT cells for some parts of NLS), and starts up the processor 
fork. 

It waits for the pocessor fork to terminate, and upon 
termination, it checks to see if there was an error in the 
process, displaying an ppropiate message if there was. 

It finaly rstores the relabelling according to NLS needs. 



in Progresa") , 

in Process"), 

in Process-— Type «-"), 

and release NLS pages from PMT* 



and then returns to previous state 
PROCEDUREj 

DECIARE procml a (11,11," 

proems « (10,10, "Error 
procm3 » (19,19, "Error 
rlasomOj %set outffg « 1 
loaprc (flTspslc;) ; *get relabellinng for processor* 
stotfk(Ssetprf ) J %start up the processor fork% 
. (utilty,apsr) (iprocml, ,$irspsK; ) j 

dismes ($l/'spsk7,l) ; ^display message and leave it there?& 
BRS $31(Soutfpt)| %wait for processor fork to terminated 
gtembkOj f release processor pages from PMT and get back 
NLS pages set outffg *-0% 

IF outfp6 > THEN terror in process,. type messaged 
BEGIN 

IF todas THIN dismes (procffi2,l) 
ELSE BEGIN 

dismes(procm3,l) J waitbsO END 
ENDl 
GOTO rtngps; ^return to previous stated 

(setprf ) : rlblrfOj %put random file blocks into the 
relabelling% 

prmwd «■ $7[BP3i^}} ^parameter word% 

isov [BpaK3J; ibrv /spskSiJ ^branch to starting code 
in processor^ 

(xitprc) ! (extpsli) s (extout) : BRS flO ^terminate forkf 
END, 
(lodprc) % This procedure reads the relabelling of a 
processor (address of a-string containing name of subsystem file 
is passed in the A rgister), and stores it into the eight cells 
toutvO-toutv6 (one relabelling byte in each cell)% 
PROCEDURE (lodprl); 

setin2 ^ fl/'.ARZ+l; %length of naae+1% 

SKIP ldsbsy(lodprl+2,.BR,0) THEN BEGIN terror on 



IF NOT 
subsystem* 
BRS 
setin2 
setinl 
WHILE 



$20(outfn); gtembkO; 
♦• .ARj setini «• .BRj 
♦• itoutvO-lj ,XR <• 0; 
setinl«"setinl+l <■ 



ierr $k END; 



toutvS DO fsetini; *■ LCY 



code for starting up 



S0r,XR«-,XR+6;(setin3,setin2) .A 77B 
RETURN END. 
(todpro) PROCEDUREJ 

%this is a PROCEDURE which contains 
passu and the processors for todas. 

It should really go into ioctl, but 
ioctl, and it cannot go into todmnc 
when a processor is brought in% 
(sttdpl) ! %start up pass 1% 

EXECUTE ioctl; smcreg «• inptmOj 
outfn «• opnfiKO, 330000008,0) J %open the file* 
CALL echo3} GOTO setpllj 
(sttdpr)s %set a processor for todas* 
todprl «• Oj *a processor is being set* 



there is no 
because todmnc is 



room in 
released 



Uny inKs; isbc setproj %get the processor Into the pm%% 
outffg ♦• Ij ffor rubout actionf 
GOTO settpri 
(sttdplj,): %set up pass k% 
todprl *• Ij %pass k% 
(settpr): EXECUTE ioctl; 
smcreg *■ inptiaO j 

outfn ♦■ opnfH (1,330000008,0) ; «open the file for the 
processor?^ 

CALL rlblrf J fget the file blocks ln% 
IF todprl DO-SINGLE GOTO setptl; 

BRS 831i("^PARM (OCTAL) = /»,-l,l)j % asK for parameter 
% prmtrfd «■ BRS S38(,6,0)j %eet the paraaeter word^ 

BRS S3ii{Stacrlf,-l,l)i Stype out a crlf% 
GOTO /actpro+1/; % start up the processor. .flo not 
RETURNS 

NULL END. 
^portal processor proceduresf 

(stfprr) PBGC; %(3ummy routined 
EXTERNAL Stfprcj 

DECLARE prtlnm * {33I166I63B, "PORTAL") J 
(Stfprc): ^PROCESSOR FORK STARTING ADDRESS^ 
^Prepare new relabeling for processor forlc% 

%Set up address and length of processor name in AB% 
,BR ♦■ stnl + 1; %iength% 

.AR «- istn; ^starting address of name strings 
.XR *■ Oj 
fGet relabeling for processor into AB and then store in 
toutv0-6« 

%this needs to be modified to take into account 
Idsbsy skiD on success {WHP)% 
CALL lodrlddsbsyO); 
%Get relabeling for portal and store in toutov% 
CALL Idsbsy (iprtlnm, 9,3) J 
toutov *■ LRSH S18(.AR,0); 
%Portal will relabel in random file block pages if it 
needs them,% 

CALL rlblrf; %FOR now, assume that it needs THEMf 
?SCall portal% 

Jsov outovlj Ibrv apgo %go to activate processor 
starting address in portal* 

END, 
(dmlink) PROCEDURE; %Used by portal to link to dismesS 
IF Clt e 3 THEN BEGIN 

CALL dismes(Sclt*l,l) ; CALL waitbsj 
CALL dismes(,0) END 
ELSE CALL disnes ($clt+l,clt) J 
J any sbr END, 
(lodrl) PROCEDURE (,lodprl) J % relabeling in AB stored in 
toutvO-6 % 

COPY (AB,A); %A TO B CLEAR A% 

toutvO *■ LSH $6{)} toutvl *■ LSH $6(0); 

t0Utv2 *• LSH S6(0); toutv3 <- LSH i6(0)j 



toutvli «• LSH S6(o,ioaprl) J 
tOUtvS <■ LSH $6{0)j tOUtv6 «• LSH »6(0)| 
RETURN END, 
^procedures for returning from processors 

(oerips) %The output compiler starting routines CALL this 
PROCEDURE after compilation is done. The output fork panic table 
is checked for an illegal instruction or ineraory trap, and the 
output error flag (OUTERF) is checked. Then either output fork 
trapped, output ok, or syntax error is displayed. WAITBS is 
CALLed for confirmation, RETURN is to the previous state. % 
PROCEDURE! 
DECLARE 

syner=( 20, 20, "PROCESS ERROR, TYPE «•"). 
comoks (17,17, "PROCESS OK, TYPE <•"), 
OUtflms (26,26, "OUTPUT FORK TRAPPED, TYPE ♦■"); 
EXECUTE recint; EXECUTE inpfbkj 
IF outfp6 > THEN CALL disroes (Soutf l!n,l) 
ELSE CALL dismes({ir outerf THEN Ssyner 
ELSE .8eomok),l)} 
IF todas DO-SINGLE GOTO rtngps; 
CALL waitps; CALL disines(,0)j 
(rtngps): CALL rlblrfj GOTO gps END. 
(bsrtn) PROCEDURE; 

IF todas DO-SINGLE iany gps{ 
EXECUTE inpfbkj CALL waitbsj 
iany txt(-l); lany gps END. 
^procedures for starting and contining% 

(ttyck) %This is called from SETINT. If the executivity flag 
is set (Brs 71), it sets TTYINF and wirtes the input from tty 
buffer message. 9& 
PROCEDURE; 

IF .SKIP BRS $71 THEN BEGIN 
BUMP ttyinf J 

BRS #31t("«INPUT FROM TTY BUFFER./" ,-1,1) END; 
GOTO setri END. 
(setws) «The function of this routine is to open the work 
station via BRS -1.% 
PROCEDURE; 

IF NOT .SKIP BRS $-l(,,ttyno) DO-SINGLE lerr S2; 
BRS $-9(-l,,ttyno); RETURN END. 
(setint) %This procedure is entered to start up NLS 
initially. It does the following things? 

Read-write pages must be obtained for the data page and 
display buffer. This is somewhat tricky, since NLS is started 
with eight read-only pages (when started as a subsystem). So, 
first page zero is relabeled out without doing a store -- the 
byte for the page that is relabeled out is saved in the X. 
Then another page for the display buffer is obtained, and the 
pages are initialized by brslOO's. 

The table containing relabeling bVtes for the various 
overlays is set up, using ICORTB which indicates which overlays 
are in the eight initial pages. 

The initials and user name are read. If, before the 



initials are typed in, a command accept is typed, and the 
user"s executivity Is set, then TTYINF is set, and all keyboard 
input is taken from the teletype input buffer. This is done by 
calling TTYCK, 

The initial relabeling is set up. That is, up to this 
point the overlay relabeling routines have not been called, and 
the current internal relabeling (RLRl and RLRa) is zero. So 
they are called to set the internal relabeling to an intiial 
state. 

The relabeling for the forks is set up and put into the 
panic tables. 

The assembly date and time are woved into the coinraand 
feedback line. 

Routines SETFIL and SETNLS are CALLed, 

Routine INTRSV in INPFBK is CAlLed, and INTFVI (starting 
destination) is set to SETIDUH in MNCTRL.% 
PROCEDURE? 

?Sinitial PROCEDURE for firing up nls% 

DECLARE setinls00777777B,stinro«liOOOOOOOBj 

EXTERNAl Stintll 

( stintl ) * 

BBS tlt3j BRS SliK.AR ,A setinl)j 

%store initial relabeling temporarily^ 

setin3 ♦■ .BR; setin2 <- .XBj BRS $li3j tnlsda ♦• LSH »6(0)j 

tdisbu *■ getpa?{); 

page in slot sevens 
buffer page % 
S6(0,setin2)) ; 
$6(0))i 
$6(0))j 
f6(0)) J 

$6{0,setin3) ) j 
$6(0))j 
$6(0)) J 
$6(0)); 
data pafe % 



%getpag must 

% it will be 

f/icortb+O/; 

r/icortb+l/; 

f/icortb+2/) 

r/icortb+3/; 

/■/icortb+k// 

/"/ieortb+S// 

r/icortb+6// 

/'/icortb+7/7 

CALI setdpgj 

IF NOT .SKIP 

setin2 ♦• ,AR} 

/"/icort2+0/; 

/'/icort2+l/; 

r/ieort2+2/; 

/■/icort2+3/; 

r/icort2+li/; 

/'/icort2+S/; 

//icort2+6/; 

Cleave this 

%take out to 

%for working 



leave a new 
the display 
♦• makrodSH 
makrodSH 
makrodSH 
makrodSH 
makrodSH 
makrodSH 
inakrodSH 
makrodSH 
initialize 



ldSbsy(«{NI,S)/XlNI.S",11.6) DO-SINGLl BRS tlO; 

setin3 ♦• .BR} 
♦■ makrodSH S6(0,setin2) ) j 
♦■ makrodSH S6(0)); 
«• makro(LSH 16(0) ) j 
«• makrodSH S6{0) ) ; 
♦ makrodSH S6 (0,setin3) ) ; 
«' makrodSH $6(0)) j 
♦• makro(l,SH S6(0) ) } 
in to debug diddl,keywd,clnup% 
debug vector package, content analyzer^ 
system, change to branch over brsl21"s% 



BRS Sl21(tdiddl); BRS $l21(tkeywd) J BRS S121(tclnup) 

CALL gtembk; %load nlsf2 and nlsf3% 

(setri): %read initials^ 

BRS fi3H("SINITIALS PLEASE; /«,-l,l); 

cinit«"setin2*'0; 



WHILE setin2 <« 2 DO BEGIN 

IF TCI setin3 IN (XOOB, 13287 THEN 

BEGIN setin3«-.AR-J|.0Bj TOO setin3 END; 

IF ,AR a tascca DO-SINGLE CALL ttyckj 

IF .AR IN (140B,72B; DO-SINGLE GOTO setrij 

cinit «• LSH »8(cinit,0) ,V setln3J BUMP setina END; 
(setru): %rea<l user% 
BRS S3li("«USERi /»,-l,l)j 
setin2«-aetin3«'isetinu*3-l; 

IF NOT .SKIP BRS SlOk (0,l^setin2,0) DO-SINGLE GOTO setruj 
cuno «- .ARj 

IF NOT todas DO-SINGLE CALL setwsi 
trf bpl^'getpag { ) $ trf topa^-getpag ( ) j 

rfbpis «- LSH $6 (LSH $6(trfbpl,0) ,V trfbp2)j 
% now set up rlrl, rlr2, and input fork relabeling % 
CALL ovl<3pg{,,$utilty) J CALL ovldpg ( , ,$nlsciat) J 
CALL ovidpg(,,Sinpfbk) J CALL ovldpg {, ,iauxcod) ; 
inpfpU<-opnfpli,«-wtfp3i*-rlrlj 
inpfp5«-opnfp5*'Wtfp5«*rlr2j 
CALL ovldpg (,,Sdisbuf ) J 
IF NOT todas THEN BEGIN 

tadfplt. «- rlrlj tadfpS ♦■ rlr2 ENDj 
alr!nst«-litcb«-Oj 

CALL ovldpg(,,$recint); BRS fliJ^(rlrl,rlr2) i 
IF todas THEN BEGIN 

CALL settod; CALL setfil END 
ELSE BEGIN 

CALL setdisd); CALL setfilj CALL setnls ENDj 
intrvl ♦> ^setdum; Isov strranp; tbrv intrvl IND. 
(rstart) ^This PROCEDURE is activated when a continue NLS is 
done, after leaving NLS. It does approximately the following: 
calls SETDIS with an argument of zero. 

Restarts the alarm clock with the correct remaining tine, 
IF it was running, 
calls SETNLS. 

If the user left gracefully {^RERROR/ is zero and INPTFG 
is true), THEN the file he was working with is restore 
PROCEDURE; 

EXTERNAL rstrtll 

(rstrtl) : 

CALL gtembk; %get the subsystem files back% 

IF NOT todas THEN BEGIN 

CALL setwsj EXECUTE disbuf; CALL setdis(O); 

IF alrmst THEN BEGIN 

wtfpl«-alrmwt- (BRS f li.2-alrjtjst) ; 

wtfpt^-Swtfrkl; BRS S9(iwtfpt .V 26000000B) END END; 
pl*'litcb«"f Icuf g^-paslf g**©; 

IF todas THEN BEGIN BRS #?8(intmsk); CALL rlblrf END 
ELSE CALL setnls; 
IF frerror; » O AND inptfg THEN BEGIN 

IF rffn THEN BEGIN 

CALL opnrff; 
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IF todas THEN BSGIN I sov toamncj ibrv reset END; 
Isov innctrl; Ibrv «3maln END| 
inptfg «■ Oj I sov ioctlj ibrv rstfil END; 
/"rerrorj «• Oj CALL setfilj Intrvl ♦- tsetdurai 
isov strmnpj ibrv intrvl END, 
%file initialisation and recovery procedures^ 

(junkf) ^If a bad file is read, this routine is called to 
initialize the file header of the working copy (by calline 
SETFIL). Control is returned to SETDUM as in the initialization of 
NLS.% 

PROCEDURE; 

%read a junky file % 

BBS $17; %close all files% 

rffn«-curfn<-0; CALL setfil; 

IF NOT todas THEN BEGIN CALL setdisCl); 

abtgt *- 1^06000008 .V SsetduM END; 
pi *■ 0; CALL rlblrf; intrvl «• 0; %tor intrvlf 
isov strnnpj Ibrv intrvl END. 
(setfil) %lhe file header is initialised by this routine. 
The working copy is opened and set to null by CALLing BRS66X, All 
statue blocks are set to ewpty, the pointer table is set to empty, 
and the frozen-core-page table (FBZCPT) is set to indicate that no 
pages are frozen. CLRALL is CALLed,^ 
PROCEDURE; 

%set up random file% 
DECLARE inlsvw » "1.1'»; 
filhedfli^-ZOi filhed/'2;«-2; 
nlsvwd*- inlsvw; hedsz«-iihedsz; 
rals<-$irals; na?ndll*-$inffldll; na!ndl2*-Sini)3dl2; 
funof'cuno; fcredt^-BBS S39; 

sdbstl«-Ssdbstn-l; rsvstl^-lrsvstn-l; rfbstl*-irfbsn-l; 
ptrtbl«-tnsg*-Oj ptrtxn^-Jptrtbx-l; 

FOR setfil FROM INC 1 TO rfiebx DO rfifcb/'setfll/^'O; 
FOR setfil FROM INC 1 TO rfbstl DO rf bs/setfli;<-0; 
BRS S-16; rfsn<-.BR; 
^teletype no for file% 

CALL opnrff; rfwfg<-l; nacp^-O; CALL brs66x(rffn) ; 
FOR setfil FROM INC 1 TO fficbx DO f rzcptfsetf li;*-l J 
rfb»«-$filhed; CALL setrsv; CALL setsdb; CALL setotr; 
IF NOT todas THEN %todas?f CALL Clrall(O); 
RETURN END. 
.FINISH Of RECINT 
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JDATA, 10/16/69 2101:02 WHP J ,HED""DATA PAGE AND SYMBOLS"! .SCR-lj 
.PLO«Xj .MCHS7S} .RTJsOj .DSN«1; .LSPsOj ,MINs70j .INS=3J .IGD»1| 
♦ •CSW«1J .CMDslj ,DSN»lj .LSPsOj .SCR»1{ ,DLS«Oj .FLNsOj .PSMaOj data 
page Phstekd"/! 
nollst ext,nul 
6ss 200b Interrupt cells 

data rerror,rerror,rerror,rerror,rerror 200-20li. illegal 
data intrS request for termination {brs 10) 
data rerror illegal 

<Sata intr? requested by inpti - waits for char 
aata intrS alarm clock interupt 
data intr9 passl finished interupt 
data intrlO command reset requested 
rpt 2Sb 
data rerror 
endr 
#this section contains all the ectu's used throught the entire system 
debug equ 1 debug flag for conditional assembly 
tty equ -1 run on a teletype??? 
squeez equ -1 compact temporary cells 
^origins of the various overlays and files 
orguty equ lltOOOb utility 

inpfbk 
sdbranp 
clnup 
seqgen 
cdsply 
txtedt 
txted2 
mnctrl 
todas main control 

prmspc 
random file blocks start 
auxcod 
recint 

display buffer 

vctedt -- first page of graphics 
vctrl -- second page of graphics 
diddle 
keyword 
calculator 
strmnp 
content analyzer compiler 



orgifk equ 
orgsmp equ 
orgcln equ 
orgseq equ 
orgcdy equ 
orgtxt equ 
orglks equ 
orgmct equ 
orgtwc equ 21i.000b 
orgpsp equ 30000to 



20000b 
21^000b 
30000b 
30000b 
21i000b 
31t000b 
20000b 
2il000b 



orgrfb equ 
orgaux equ 
orgrin equ 
orgdbf equ 
orgvct equ 
orgvel equ 
orgddl equ 
orgkwd equ 
orgcal equ 
orgstr equ 
orgcac equ 
orgioc equ 
oass}|.g equ 
outf equ 
cacmpg equ 
vm equ 



llOOOb 
2k000b 
lOOOOb 
31i000b 

21^000b 

30000b 

2k000b 
21^000b 
30000b 
20000b 

3ii00Ob 
21i000b ioctl 



20001b 

3l^002b outovl entry point 

3U001b cacmpl entry point 

orgrfb 

♦ascii character codes for special characters 
asccd equ 136b ascii command delete 
ascca equ llili-b ascii command accept 
ascsp equ ascii space 
asctab equ 151b ascii tab 



DATA PAGE AND SYMBOLS 



litm 


equ 


7 


stnn 


equ 


8 


stnon 


equ 


9 


fnmn 


equ 


10 


stn2n 


equ 


11 


sarn 


equ 


13 



asccr equ ISSb ascil carriage return 
asclf equ 152b ascii line feed 
ascbc equ llilb ascii bacKspace character 
ascbw equ 167b ascii bacKspace word 
asccdt equ 100b ascii center dot 
register numbers for state machine 
esn equ 5 entity register (string part) 
numnn equ 6 number register 

literal register 
statement name register 
statement number register 
current file name register 

second statement name 
string area register 

* register maximum lengths 

numnx equ 12 max characters in number register 
stnx equ 32 max characters in statement name 
stnox equ 12 wax characters in statement number 
fnrax equ 36 max length for file name reg 
sarx equ 32 max characters in string area 

* symbols for direction set address (sd) 

dirl equ set direction left (backwards) 
dirr equ 1 set direction right (forward) 

* symbols for character position address (epf) 

cpflf equ 1 set to line front 
cpfle equ 2 set to line end 
cpfsf equ 3 set to statement front 
cpfse equ k set to statement end 
♦symbols for compare character position address (ccp) 
relit equ 1 less than relation 

less than or equal relation 

equal relation 

greater than or equal relation 

greater than relation 

not equal relation 
symbols for character class variable (ccv) 
ccsp equ 1 a space 
cctab equ 2 a tab 
ccld equ 3 any letter or digit 
ccl equ k any letter 
ccd equ 5 any digit 
cch equ 6 any old character 
ccnp equ 7 any non-printing character 
ccpt equ 8 any printing character 
cccr equ 9 a carriage return 
symbols for string class variable instruction (scv) 
bggap equ 1 simple gap 
bglg equ 2 line gap 
bgnig equ 3 non-line gap 
bgpts equ k printing string 
bgnps equ 5 non-printing string 



relle 


equ 


2 


releq 


equ 


3 


rclge 


equ 


It 


relft 


equ 


5 


relne 


equ 


6 



DATA PAGE AND SYMBOLS 



bgXs equ 6 letter string 

bgds equ 7 digit string 

bgl0s equ 8 letter-fligit string 
case save block 

ncasv equ li. number of cells in case save block 

ncasvl eau ncasv-1 
stack and other parameters 

stackx equ 53 number of cells in general stack 
30 number of cells in file stack 
5*2 (even) no, of cells in jump stack 
10 number of cells in spec stack 
k no. of blocks in core at any time 
10 no, of chars in input buffer 
75 number of words for c.a, routine 

levelx equ 15 max level allowed in nls 
file parameters 

rsvstn equ 8 number of blocks for rsv in rf 
1021;. random file block size 
7 block header size 
6k number of blocks in random file 
30 pointer table length 3 per 
55 max num of blocks for sdbs in rf 
2 max num of blocks for vdbs 
for use with define state pop (ds) 

1 special group 

2 edit group 

3 dump group 
li vector package group 
Ij. maximum group number 

* symbols to make up the cc mask and the cc table 

cmfl equ 1 bit 23 is a letter 

cmfd equ 2 bit 22 is a digit 

cmfp equ k bti 21 ia a printing char not in 

» another class 

cmfsp equ 8 bit 20 is a space 

cmftb equ 16 bit 19 is a tab 

cmfcr equ 32 bit 18 is a carriage return 
vworkx equ levelx+l size of work area for stvect calls 
#now comes the data area definitions 

# state machine* 

a register 
b register 

character portion of entity register 
string portion of entity register 
c register (input character) 
state data 

*t>revious state-requires that mnctrl is ovl 7 
abtgt data 

♦target for aborts (usually previous state) 

numnxn data numnx max length, number register 



hstckx equ 
jstckx equ 
spskx equ 
rficbn equ 
inptbc equ 
cacodl equ 



blkszn equ 
blkhdr equ 
rfbsn equ 
ptrtbx equ 
sdbstn equ 
vdbstn equ 
*group names, 
grspec equ 
gredit equ 
grjurap equ 
grvect equ 
groupx equ 



smareg data 
smbreg data 
smec data 
smes data 
smcreg data 



DATA PAGE AND SYMBOLS 

nuanl data current length 

nuran bss nuninx/3+1 room for string 

stnxn data stnx max length, atatement name reg 

stnl data current length 

stn i)ss stnx/3+1 room for string 

stn2 data stnx extra st name register 

stn21 data -1 

bss stnx/3+1 

stnoxn data stnox max length, statement number register 

stnol data current length 

stno bss stnox/3+1 room for string 

« 

fnmxn data fnmx 

fnml data -1 

fni bss fnr8x/3+l 

# 

bugreg bss 2 state machine bug mark area 

flag data 1 the general flag 

* 

cflpos data command feedback word counter 
« 

sarxn data sarx string area max length 
sari data current length 

sar bss sarx/3+1 room for string 
« 

♦stuff for case save 

* 

casv data index to case block cell 

casvb bss ncasv case address block 

casvn data ncasv number of cells in block 
*stack areas, both general stack and spec stack 

stackd bss stackx general stack 

stack data stackd-1 stack pointer 

stackl data stackd-1 initial pointer 

stackt data stackx+stackd-1 top of general stack 

rtncel data stackd-1 pointer to return cell 

spskd bss spskx spec stack 

spsk data spskd-2 spec stack pointer (double words here) 

spskl data spskd-2 initial pointer 

spskt data spskx+spskd-1 top of spec stack 

hstack data hstckd+1 file link stack pointer 

hstckd data -1,-lj bss hstckx-2 

hstckl data hstckd+hstckx-1 

hstckn data hstckd+1 

jstack data jstckd jump stack pointer 

jstckd bss jstckx 

jstckl data dstckd+;3stckx-l 
« TODAS cells used by and for 

todas data true if system running as todas 

rubabt data true if rubout causes abort for todas 



DATA PAGE AND SYMBOLS 



buffet data in<Jex Into todas input byffer 
carpos data position of carraige (Osleft margin) 
outrasl bss 1 temp for outraes 
input buffer 

inptbc 
inptbf+inptbc pointer to end of buffer 
inptbc number of characters 
inptbf read in pointer 
inptbf read out pointer 
inptbb data inptbf pointer to buffer start 
intmsK data 176000b interupt mask 
» text pointers 

Dl bss 2 Keneral pointer array 
2 



inptbf bss 
inptbe data 
inptbl data 
inptbi data 
inptbo data 



p2 
P3 
Pk 
PS 
p6 

P7 
p8 

p9 
po 

curgrp 

# work 
sworK 
sworKl 
sworkli. 
sworK? 
cworlc 
cworkl 
eworkli 



bss 

bss 
bss 
bss 
bss 
bss 
bss 
bss 
equ 
data 
areas 
bss 



2 
2 
2 
2 
2 
2 
2 

pX-2 
-1 



current group number 



fechcl calls 
Ij swork3 bss 
1} swork6 bss 
1; sworJc9 bss 



1 
1 

6 



work area for 
bss Ij swork2 bss 
bss Ij sworkS bss 
bss Ij swork8 bss 
bss 5 work area for apachr calls 
bss 1; cwork2 bss Ij cworkj bss 1 
bss 1 
bss vworkx work area for fechno calls 
vwork+vworkx-1 address of last word 



vwork 
vworkz equ 
file block 10 
rfifcb bss rficbn random file index for core blocks 

rficbn frozen core file page table (-l"free) 
1 next available core page 

current initials of user 
current user number 



frzcpt bss 
nacp bss 
cinit bss 1 
cuno bss 1 

scndir bss 

smtemp bss 
smtmpl bss 
txtloc bss 
rplsid bss 



1 pm scan direction 



temp cells for pops 
temp cells for pops 
return cell for txt (calls credis) 
psid of statement being replaced in sc 



# 

» global variables for structure 

adjpos bss 1 contains psid after adjustment 

adjdir bss 1 use sub(lor»0) or sue (lor >0) after adj 

grpl bss 1 first psid of group 



DATA PAGE AND SYMBOLS 

frp2 bss 1 second 

svalue bss 1 used in struct routines for temp value 
♦macros for declaring temps 
* 

qrcell equ 
qloc equ 
qdeclc equ 
qx equ 
« 

step macro 
qx equ qloc-qdeclc 
if qx-qrcell 
qrcell equ qx 
endf 
end! 
* 

block macro 
qrcell equ 
qloc equ * 
qdeclc equ * 
endffi 
« 

endblk macro 
bss qrcell 
endffi 
♦ 

decl macro d 

qx narg 

rpt (qyBl,qx) 

d{qy) equ qloc 

qloc equ qloc+1 

endr 

step 

endm 

# 

samloc macro 

if squeez 

qloc equ qdeclc 

endf 

endm 

« 

decb macro d 
d(0) equ qloc 
qloc equ qloc+d(l) 
step 

endro 
» 

decl macro d 
rpt (qy*l,d(l)) 
d(0),{$qy) equ qloc 
qloc equ qloc+i 



DATA PAGE AND SYMBOLS 



enar 
step 
endm 
temporary declarations 
block always overlayecJ temps 
apchr aecl 2j samloc 
Idchr aecl hi saraloc 
newab decl JK.; samloc 
cpysr aecl 3; samloc 
hash decl 2| saraloc 
decl mvfrn,ravtoo,mvnwj samloc 
decl cksumlj samloc 
decl nwrfbl; samloc 
decl clrll; samloc 
lass decl 3} samloc 
ovlad decl 2j samloc 
ovlgo decl 2; samloc 
resd decl 2j samloc 
frzrf decl 3i samloc 
compr decl 3j saraloc 
endblk 
block non-overlayed temps 

decl cdpnic,swkflg,gtflgl,stsucl 
stsubl,intr81,cptsrc 
litlc,litcb,litlcl 
ovrelf 

prwwd, passed, outerf,setf 11 
outfff ,ttyinf ,updtfg 
litrf 

decl 2 
decl k 
stfhdl,stftll,stssfl,stonral,stsdbl,stvdbl 



decl 
decl 
decl 
decl 
decl 

Inprl 

apar 

decl 

stflg 

strsv 

Idrsv 

ovld 

IKnmh 

stvct 

stpos 

letlv 

decl 

Idrfb 

fecht 

decl 

decl 

Idsdb 

fechn 

f echm 

ftwk 

cvsno 

aism 



decl 
decl 
decl 
decl 3 
decl 
decl 
decl 
decl 
stvtl 
decl 
decl 



2 
2 
2 

5 
It 
k 
2 

k 
3 



f echdr , rerra, rerrb , rerrx 
rerrn,rerrz 



decl 
decl 
decl 

decl 
decl 

decl 



2 

7 
7 



DATA PAGE AND SYMBOLS 

aecl clr<ii,tJlrll 

clra decl 2 

aecl inpfpt input fork panic table 

inpfp decl 6 
decl opnfpt open file fork panic table 

opnfp decl 6 
decl wtfpt alarm fork panic table 

wtfp decl 6 
decl tadfpt time and date fork panic table 

tadfp decl 6 
decl outfpt output fork panic table 

outfp decl 6 
rlr decl 2 current relabeling 
decl ovcl,sovl,gcftl,inptfg 
decl paslfg,flcufg,flcuer,opnfg 
decl inptfa,usrpts,flpts,nmpts,spcpts 
sptrl decb 2 delimit string to be concatenated (cpr) 
sptr2 decb 2 

decl cdlit,cdlitc,cdclrs,alrmwt 
decl alrmst,cdlitf 
inppr decb 3 
kit decb k5 
frzlst decb 10 
decl frzlsx 
relst decl 2 
utt decb 113 
endblk 
litll equ litlcl+liOOOOb indirect pointer to lit reg length 
block temps for recint, inpfbk, sdbmnp, linksub, diddl, keywd, 
auxcod 

samloc for recint 

rit decb k2 recint temps 

axt decb 3k auxcod temps 

1st decb 10 linksub temps 

ddt decb kS diddl temps 

kwt decb 18 keywd temps 

decl setin2,setin3,lodprl 

crfnm decl 2 

init decl 5 

timms decl 3 

setinu decb 6 

samloc for inpfbk 

ift decb 73 

decl pshspl,inptmr,inptcl 

decl inptpr,inptml,intrvl 

decl incse,inptOc,inptlc 

decl inptrf ,inptfl,inptcm 

decl inpfsl,inPjiinwait,inbttn 

inptc decl 3 

nwrsv decl 3 

nwrvb decl 3 



DATA PAGE AND S5fMB0LS 



rdhdr 


decl 2 


fhux 


decl 6 


decl 


f huxba, f huxl, f huxz , f huxa 


Ikptr 


decl 2 


(3ecl 


asrfrm,asrtoo,asrnw,asrrem,asrnc 


nuFid 


decl k 


astnn 


decl k 


aplit 


decl 2 


cdlit 


decl 9 


decl 


cdhpol,csel 


frrsv 


decl 2 


freva 


decl 5 


numrei 


: decb 21 


samloc 


: for sdbmnp 


mat decb 26 


cpr decb 2 


cptsr 


decl 3 


apasr 


decl k 


apts 


decl 10 


comsr 


decl k 


iarom 


decl 3 


gcolx 


decl 7 


gcol 


decl 6 


cmptr 


decl 9 


fnarm 


decl 3 


nwsdb 


decl 3 


edsdb 


decl 3 


decl 


frsdbl,rtncfl,pdctl,pdct2,delstl 


xtrn 


decl 2 


deXpt 


decl k 


inspt 


decl 5 


fxptr 


decl 6 


sanloe 


: £or fratout 



sft decb kl 

fchs decl 7 

kyfch decl 6 

endblk 
block temps for clnup 

clt decb kS maybe less 

clnup decl k 

crsv decl 6 

chkdb decl it 

decl unalbk,cksner,rfbser,stfler,wrngty 

decl ringer, Isteer, Is tser,lstver,flperr 

decl fsper,udcler,flerr,stbner 

decl sdbher,vdbher,bdchr,f check, f store 

endblk 
block temps for spclib, fiolib, cdsply 

samloc for spclib 

pit decb 32 

nnt decb 3k 



DATA PAGE AND SYMBOLS 

decl setltl,setlt2,taill,subtsl,typstl 

decl aetlt3 

fedlt decl 3 

pred decl 2 

seept decl k 

usd decl S 

situs decl 2 

saraloc for fiolib 

lit decb 38 

decl frinfil,opnfsl,popvw,popid,hfuno 

decl clrdsl,bmphsl,hflnKl 

rtnhs decl 3 

pshhs decl 3 

fuser decl 2 

freer decl 2 

opnfl decl 5 

opnfp decl 2 

copisK decl it 

wrtbkl decl 1 

copfl decl 6 

samloc for cdsply 

cdt decb hB 

cred decl k 

samloc for txtedt 

tet decb 12 

tst decl 5 

tstf decl 5 

endblK 

# file names 

erf nil asc ' (sys) /crash' 

♦ pop code definitions 

wsi opd 100bS*l#l*0,l work station input syspop 

any opd 177b5,l,l all no-address pops are anypops 

err opd l7SbS,l,l 

abort opd I36b5,l,l abort a command 

bt opd 101b5,l»l 

bf opd 102b5,l,l 

lee opd 103bS,l,l 

les opd 10UbS,l,l 

lai opd 105b5»l,l 

Ibi opd 106bS,l,l 

sbc opd I07b5,l,l 

gset opd llObS*l*l 

ralfl opd lllb5,l#l 

rep opd 113b5,l,l 

las opd lllib5jil,l 

sap opd 115b5#l*l 

laa opd Il6b5«lfl 

saa opd 117bS,l#l 

lap opd 12005,1,1 

Isa opd I2lb5,lfl 
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arb 


opd 


122bS,l,l 


bfs 


opd 


I23b5,l,l 


brc 


opd 


121ibS,l,l 


ccp 


opd 


12Sb5,l,l 


ccv 


opd 


126bS,l,l 


scv 


opa 


127bS,l,l 


Ibp 


opd 


166bS, 1,1*0,1 


m 


opd 


llJibS,l,l 


ipp 


opd 


166b5,l,l,0,2 


pps 


opd 


130bS,l,l 


sd 


opd 


131b5,l,l 


cpf 


opd 


132bS,l,l 


cchr 


opd 


133b5,l,l 


pdc 


opd 


l3l;bS,l,l 


ate 


opd 


135b5,l,l 


sov 


opd 


137bS,l,l 


ovc 


opd 


Ik0b5,l,l 


mlf 


opd 


lklbS,l,l 


mlfr 


opd 


m2b5,l,l 


brv 


opd 


lU3b5,l,l 


dfs 


opd 


lii!tbS,l,l 


lass 


opd 


lliSbS,l,l 


tch 


opd 


lk6bS,l,l 


eta 


opd 


lli7bS,l,l 


ovl 


opd 


176b5,l,l 




♦overlay relabeling table 
ovrlt equ * 
blocK: relabeling table 

decl tnothg,tutilt,tinpfb,tdisbu,trecin,tauxco,tanctr 

decl ttodal,ttoda2 

decl tpr»sp,tdiddl,tKeywd,tcalc,tioctl,tvcted,tvcte2 

decl tstrmn,tclnup,tseqgen,tcacmp,tcadat,tsdbinn%todas?5 

decl ttxted,tlnksu,tcdspl,trfbpl,trfbp2,tnrfbl,tnrfb2 

decl tnlsda,tpUary,tplidat,tpli.c2,tpHcod,tpl).c3 

decl toutov,toutvO,toutvl,toutv2,toutv3,toutv!t 

decl toutvS,toutv6 

endblk 

cortb data 0,0,0,0,0,0,0,0 contains overlay num. in that page 

* content anlyzer room 

cacode bss cacodl c.a. code area 
cacdnd bss 1 end of area 

* global display parameters 

cdctaf data content flag 

branch only flag 

trail flag 

relative level 

100,100 level 

abreviated feedbacK line 



1 

-1,-1 truncation 



cdbrf data 
cdtrlf data 
cdrlev data 
cdlev data 
cdabfl data 
Itflag data 
cdptr data 
cdtrn data 






DATA PACE AND SYMBOLS 



0,0 blank line flag 
indienting 
nimtes 
loc-nums 
flag for seqgen 
frozen 
tree 

initials, date, and time 
clip pictures 
Jceywora flag 

for psia of best in keyword 
display start 



cdblnk data 
cdindf data 1 
cdnanf data 1 
cdstnf data 
stnufflf data 
cdfrzf data 
cdtref data 
cdidtf data 
cdclpf data 
cdkeyf data 
kypsid data 
cdpsid data 1 
cdwork bss 13 
file i/o parameters 
cnlsfn bss 1 c-nls file number 

checkpoint file number 
current file number 
random file file number 
teletype number for scratch file 

random file write-ok flag (i/o fork?) 
output file number 

display start for working copy 
view spec for working copy 
initial file parameters 
inmdll equ 10b left name delimiter 
lib right 
50 average length 



ckptfn bss 
curfn bss 
rffn 



1 
1 



rfsn 

rfwfg 

outfn 

wpsid 



bss ] 

data 
data 
bss 
data 



witwd data 



; keyword) 



inmdlS equ 
irals equ 
file header block area 
filhed equ * 

bss 1 checksum (not computed) 
data 20 

data 2 block type (header) 
bss k 

file creation date 
'1,1' nls version word 

ihedsz number of words in this block 

initials at last write 
user number (file owner) 

1 last write date 
last write time 
inmdll left name delimiter 
inmdl2 right 

irals running average length of sts 
, total number of stt generated 

♦status blocks 

rfbsx data rfbsn-1 

rfbstl equ rfbsx 

rfbs bss rfbsn random file block status 

sdbstl data sdbstn-1 

sdbst bss sdbstn sdb status block 

rsvstl data rsvstn-1 



fcredt 


data 


nlsvwd 


asc 


hedsz 


data 


finit 


data 


funo 


data 


iwdat 


data 


Iwtin 


data 


namdll 


data 


namdlS 


data 


rals 


data 


tnsg 


bss 
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rsvst bss 
ptrtbl data 
ptrtxn data 
ptrtb bss 
V(3bstl data 
vdbst bss 
qbst data 
♦ 

hedend equ 
ihedsz equ 



rsvstn rsv status block 
pointer table length 
ptrtbx-1 

ptrtbx 
vdbstn»l 

vdbstn vdb status block 

query status block (one cell) 



hedend-filhed 



freeze 

frgt debug, asesp,dirl,dirr,cpf If, cpfle,cpfsf,cpfse 

frgt relit, relle,reieq,relge,relgt,relne,ccsp,cctab 

frgt ccld,ccl,ccd,ccli,ccnp,ccpt,cccr,bggap,bglg,bgnlg 

frgt bepts,bgnps,bgls,bgds,bglds,ncasv,grspec,grscan 

frgt gredit,grhop,grdump,groupx,cfflfl,cinfd,cmfp,cfflfsp 

frgt cinftb,ciiifcr,numnn,litln,stnn,stnon,dsarn,sarn 

frgt rflcbn,esn,blkhdr,spakx,na,stnox,numnx 

frgt tty,disfpn,datfpn,cdskx,lnadll,inmdl2,lnptbc 

frgt qrcell,qloc,qdeclc,qx,qy,squee!S,ncasvl,iocfpn,strfpn 

end 

♦ the following equs should gointo data, but won't until the new mol 

♦is ready because of symbol table problems. 

asce equ li-Sb e 

ascn equ S6b n 

asco equ 57b o 

ascs equ 63b a 

ascro equ lli6b rub out (for output) 

ascbst equ 161b back space statement (control q) 

ascpct equ 5b percent 

ascbel equ lJi7b bell 

ascrtp equ lib right paren 

ascslh equ 17b slash 

ascbks equ 7k^ backwards slash 

ascuar equ 76b up arrow 

ascbka equ 77b back arrow 

ascdot equ 16b period 

aseeq equ 35^ equal sign 

ascf equ k6b f 

ascg equ 107b g 

ascq equ 61b q 

ascy equ 71b y 

ascctc equ ascdot will eventually be redefined as ? (maybe ca) 

ascast equ 12b asterisk 

asclbk equ 3ltb left broken bracket 

ascrbk equ 36b right broken bracket 

asccoin equ Ikb comma 

ascamp equ 6b arapersand 

ascans ecu 7b apostrophe 

ascqus equ 37b question mark 
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rUTILTY, 11/16/69 2023sitlt WHP l 

1 .IGDalj 

2 Description of UTILTY overlay 

2a The UTIITY overlay contains MOL procedures, which are used by all 
other overlays. They are used frequently, and should always be 
available to other routines. Hence they are always relabeled into 
addressable core, currently in core page 3. 

2b Also in the same overlay are several tables, and constants. 

2c This page is read-only, and shared. 

3 ^Procedures in the UTILTY overlay^ 

3a DECLARE orifin/"13777B;j 

3b (contin)PROCEDUREj %for starting NLS% 

3bl ^continue point for NLS% 

3b2 ^This procedure raust always start at location lkOOO% 

3b3 EXECUTE reeint; aOTO rstrtl END. 

3c DECLARE EXTERNAL 

3cl regary» (l,smareg,snbreg,smec,sincreg,smes, 

3cla nuinnl,litll,stnl,stnol,fniiil,stn21,l,fflarl), 
3clb re?cv»<O,0,O,0,O,0,-l,-l,-l,»l,-l,-l,«lj-l) J 
3d DECLARE EXTERNAL 

3dl emdoptni(l,2,ij.,6) , ^underline, italics, bold, flicker* 

3d2 lCBiSk«(0,7760O0O0B,77777li00B), 

3d3 chrmsK* (776O000OB,OOl77U0OB,377B) , 

3<3ik endchra377B, headlsfiOOOOOB, icksumaO, ttyno«-l, 

3dS igrpss {o,statein,charac, item, vector) , 

3d6 igrpc«(0,63B,li3B,SlB,66B), 



3d7 popcocl«17600000B, nopcoasgOOOOOOB J 
3e DECLARE EXTERNA!. 

3el statem « (8,8, "STATEMENT" ) , 

3e2 item = (3,3, "ITEM") , 

3e3 Charac »<8, 8, "CHARACTER") , 

3ek vector « (5,5, "VECTOR") ,• 
3f DECLARE rficbx a3, %rficbn-l% 

3fl blKsiz s 2000B, %randomn file block size blkszn f 

3f2 rfam » 177777B, ^ random file block atJdress raask 
blkszn#rfbsn-l% 

3f3 Ifrwdp * 8, %initial free word pointer blkftdr+l % 

3fk rsvhdr » 2, %missing psids per block due to header^ 

3f5 rsvfpt B 177SB; %rsv block fullS? it^ee word counts 

3g DECLARE EXTERNAL ChrlSh a (/LSH 16/, /LSH 8/, /NOP/)i 

3h DECLARE EXTERNAL Chrrsh « (/LRSH 16/, /LRSH 8/, /NOP/); 

3i DECLARE EXTERNAL crpgad s (1|.OOOB,6000B,10000B,12000B) j% 

vm,vm+Blkszn,v!n+2*Blkszn,vn+3*Blkszn% 

3j ?6overlay table. .instructions 

3dl INSTRUCTIONS FOR CHANGING 

3.jla output the table to a qed file, and assemble in arpas, 

3jlb Then load the table into ddt with the table conversion 
program, and insert the resulting table into this file 

3.jlC TABLE CONVERSION PROGRAM 

3jlcl compile this program with mol and arpas, 

3dlc2 After compilation, load it into oddt along with the 
binary from the table (as produced below) • 

3jlc3 Define the symbol TABLE as the starting address of 
the binary table produced bbelow. 

3dlc^ then typ start; g, followed by a file name, which will 
bbe the file on which the final overlay tble will be 



written. 

3Jlc5 after running the profrm, do an insert qe<i branch 
(with convert case) to get the table into utility. 

3dlc6 (cvrt) procedures 

3olc6a declare t,tlj 

3dlc6b declare comroa a » , t » 

3dlc6c declare seitii » ' j*, 

3jlc6cl filmes b »fiie nainea/', 

3jlc6c2 donmes * 'Sdone /', 

3jlc6c3 decmes = 'declare /'| 
3.jlc6d (start): 

3dlc6e ,ar ♦■ .brs31i(«filmes,-l,l) ; 
3.jlc6f .ar«- .brsl6 (03000000b, 0,0) j< data 0>; 
3c)lc6i t^-.ar; 
3dlc6h tl«-0j 
3jlc6i goto firsti 
3dlc6j while tableftli .ne do begin 

3dlc6cjl bump tlj 

3aic6;j2 .ar <- .brs31^{ttablertl;,-l.t) j 

3jlc6;53 .ar «■ table/"tl-i;; 

3dlc6jli .ar*-.brs36{,8,t); 

3jlc6jS .ar «■ li2bj < cio t>; 

3jlc6j6 tl ♦- +3; 

3jlc6j7 if tablefti; .eq then goto exitj 

3jlc6d8 .ar «• comma; < cio t>| 

3jlc6d9 (first) ;.ar *• ISSbj < cio t>j 

3jlc6dl0 .ar *■ 15Sb; < cio t>j 



3dlc6c)ll .ar «• 21i>; < clo t>j .ar «- Itlbj < cio t>j If 
tl then begin .ar ♦• 2lb| < cio t> end| ,ar «• 0; < cio 
t>; 

3dlc6dl2 if tl ,eq then be^in .ar ♦• 
,brs3ii,{$decmes,-l,t) ena 

3jlc6dl3 enfl; 

3dlc6!c (exit)! .ar ♦• semij < cio t>j 

3jXc6l .ar ♦■ .brsl7() ; 

3jlc6in .ar ♦■ ,brs31t («dionmes,-l,l) j 

3dlc6n .ar *■ .brslOO 

3Jlc6o endp. 

351c6p finish 

3dl<a TABLE 

3diai .OSWsl; .CMDBl; .DSN«1; .SCRslj .LSPsOl ,DLS»Oj 
.FLNbOj .PSWsO; 

3dldla rad 2 

3dldlb ovl opd 176bS,l,l 

3dldlc needs macro d 

3jldlcl d(0) ovl (r)d(l)-(r)nothi*a(2) 

3jldlc2 nufflchr nchr d(0) 

3jldlc3 IF nurachrsS 

3dldlc3a asc '.dJO) , ■ /• 

3jldlcii ELSF numchrBli 

3jldlcka asc ',d(0). ^ / * 

3jldlcS ELSE 

3dldlc5a asc '.d(0) ,« /» 

3dldlc6 ENDF 

3aidlc7 ENDm 

3dldld nothg needs nothg,0 



3jlclle utilty needs notng,3 
3jldlf inpfbK needs disbufjU 
3jiaig disbuf needs notftg,? 
3dldlh recint needs nothi,2 
3dldli auxcod needs recint,S 
351dlj mnctrl needs inpfbk,5 
3JldlR todasl needs inpffelc,5 
3^1dll todas2 needs inpfbk,5 
3ililm prmspc needs inpfbk,6 
3dl<Sln diddl needs inpfbK, 5 
3dldlo keywd needs inpfbK, S 
3jldlp calc needs inpfbK, 6 
3dldlq ioctl needs inpfbK, 5 
3jldlr vctedt needs inpfbK, 5 
3dldls vctrl needs vctedt, 6 
3dldlt strmnp needs nothg,lt 
3dldlu stredt equ stranp 
3dldlv passl equ calc 
3dl<aiw clnup needs inpfbK, 6 
3jldlx seqgen needs nothg,6 
3jldly cacmpl needs seqgen,? 
3dldlz cadata needs seqgen, ii. 
3jldlai sdbmnp needs seqgen, 5 
3dldlaa txtedt needs sdbanp,? 
3jldlab inKsub needs txtedt, li. 
3jldlac cdsply needs seqgen, 5 
3dldlad rfbpl needs nothg,2 



3jldlae rfbp2 needs rfbpl,l 
3jlcllaf nrfbpl needs nothf,2 
3jldlag nrfbp2 needs nrfbpl, 1 
3jldlah nlsdat needs nothf,o 
3jldlai pliary needs pitcodl,? 
3jldla3 plidata needs seqien,5 
3aldlak pl|.c2 needs pkcodl,7 
3jldlal piicodl needs pl).data,U 
3jldlaii pitc3 needs nothg,6 
3jldlan outovl needs seqgen,7 
3Jldlao outvO needs nothg,0 
3jldlap outvl needs nothg,! 
3jldlaq outv2 needs noth|,2 
3dldlar outv3 needs nothg,3 
3jldlas outvli needs nothg.k 
3jldlat outvS needs nothg,5 
3jldlau outv6 needs nothg,6 
3jldlav end 
3^2 OVERLAY TABLE ITSELF:% 
3d2a SET ovltb ■ «5 
3d2b DECLARE nothg « 17600000B, 
3j2bl utiltys 17600003B, 
3d2b2 inp£bK= 1760003tB, 
3j2b3 disbufs 176OOOO7B, 
3j2bli recints 17600002B, 
3d2b5 auxcods 176000itSB, 
3d2b6 mnctrl= 17600025B, 



3d2b7 todasls 1760002SB, 

3j2bS todasSs 176OOO2SB, 

3cj2fc9 prmspca 176OO026B, 

3d2bI0 didcSl s 1760002SB, 

3d2bll iceywd a 1760002SB, 

3d2bI2 calc ■ 17600026B, 

3d2bl3 ioctl s 1760002SB, 

3d2blk vcteata 1760002SB, 

3d2bl5 vctrl s 17600166B, 

3d2bl6 strranp= 17600001tB, 

3j2bl7 Clnup * 17600026B, 

3d2bl8 seqgens 17600006B, 

3d2bl9 cacmpls 17600227B, 

3d2b20 cadatas 1760022I1B, 

3d2b2l sdbranps 176O022SB, 

3j2b22 txteat= 176002S7B, 

3d2b23 InKaubs 1760026JiB, 

3d2b2k cdsplys 1760022SB, 

3d2b2S rfbpl = /NOP/, %tor bra -13 ptch« 

3:j2b26 rfbp2 - /NOP/, %tor brs -13 ptch% 

3j2b27 nrfbpls 176OOO02B, 

3d2b28 nrfbp2s 17600331B, 

3d2b29 nlsdatB 17600000B, 

3d2b30 pkary » 176OOI1.17B, 

3J2b31 plidata= 1760022SB, 

3d2b32 pkc2 s 17600^178, 

3J2b33 plicocSl= 1760037kB, 



3d2b3k pltc3 » 176000068, 

3d2b3S outovls 17600227B, 

3j2b36 OUtvO = 17600000B, 

3d2fe37 outvl s 17600001i, 

3d2t>38 outv2 = 17600002B, 

3J21339 outv3 = 17600003B, 

3j2bli0 outvie = 17600001^8, 

3d2b!tX outvS * 1760000SB, 

3d2bli2 outv6 a 17600006B; 

3K (push) %A11 routines that need to push a value onto the general 
stack DO it by calling this routine. It first checks for stacK 
overflow, THEN pushes the contents of the B register onto the stack, 
A stack overflow results in an exceed capicity ERROR. % 

31 PROCEDURE; 

311 %push the b register onto the general stack% 

312 IF stackt <s stack DO-SINGLE ierr B6; 

313 BUMP stack} 
311t /"stack; <- ,BRj 
315 RETURN END, 

3ni (pop) XBeing the reverse of push, POP removes the top element of 
the stack and RETURNS it in the B register. It checks for stack 
underflow first, and calls RERROR IF underflow has occurred.* 

3n PROCEDURE; 

3nl %pop the general stack 1 cell, into the b register^ 
3n2 IF stack <= stackl DO-SINGLE rerrorO; 
3n3 .BR ♦• /"stack/; stack «•+ -1 END, 

3o (apchr) «The calling arguments are: a character in the A, and the 
address of an A-string in the X, The character gets appENDed to the 



END Of the A-string. If the current lenfth of the A-string is the 
same as the maximun length (i.e. the string is full) when this 
routine is called, an ERROR 6 {exceed capicity) is generated. 
Character positions within a word, following the character appENDed, 
are set to blanks, % 

3p PK0ClDURE(apchrl,,apchr2); 

3pl IF $0[,XRJ <» $1/.XR/ DO-SINGLE lerr S6j 

3p2 BUMP #i/".xr;i 

3p3 apchr2«- $l[,XBj/3 * 2 +apchr2} 

3pll .XR «■ .BRj 

3p5 .BR 4- apchrl; 

3p6 EXECUTE Chrlshr-XR; ; 

3p7 «AR «■ /*apchr2; .A IcmsKr.XB;; 

3p6 COPY UX,BX,XA); XXA; 

3p? rapchr27 ♦• .ARj 

3plO RETURN END. 

3q (apsr) %The purpose of this routine is to append one A-string onto 
another. The routine is called with the addresses of the A-strings 
in the A and the X. The string specified by the A is appended to the 
string specified by the X. An ERROR 6 is generated IF the raaxiKum 
length of the latter string is too short to contain the result. The 
string is appended character by character using LDCHR and APCHR,% 

3r PROCEDURE (apsrlj,,apsr2) j 
3rl apsrS^-.AR+lj 

3r2 IF /■apsr3/ + Sl/.XR/ > «0/".XR/ DO-SINGLE terr «6{ 
3r3 apsrli ♦■ 0; 
3rlj. WHILE rapsr3; >* apsrJi DO BEGIN 

3rli.a idchr (apsrl,apsrb.) I 

3rUb apchr(,AR,,apsr2); BUMP apsrli ENDj 
3r5 RETURN END. 



3s (lachr) %The function of this routine is to load a specified 
character from an A-string. Upon entry, the A contains the adKJress 
of the A-string, and the B contains the nuiaber of the character 
desired. The character is returned in the A, and the X is preserved. 
Note that the first character in the string is numbered zero. The 
routine will not check for legality of the character number,^ 

3t PROCEDURE {Idchrl,ldchr2,ldchr3)s 
3tl Idchrlt ♦• ldchr2/3+ldchrl+2; 
3t2 ,XR *■ .BR; 

3t3 .AR «■ ridchri^; ,A chrwsKf .XR/ j EXU chrrshf.XR/ j 
3tl^ RETURN (,,ldchr3) END, 

3u (cpysr) SSTo copy one A-string into another, CALX, this routine with 
the address of the source string in the A, and the address of the 
string to write in, in the X. The aove is done by words rather than 
characters, so this routine is quite fast. An ERROR 6 is generated 
IF the maximum length of the destination string is shorter than the 
source string. % 

3v PROCEDURE (cpysrl,,cpysr2) J 
3vl BUMP cpysrlj 

3v2 IF sor.XR; <8 rcpysrli DO-SINGIE lerr S6j 
3v3 BUMP CpysrSj 
3vli. cpysr3 ♦■ /'cpysri;/3+2j 
3VS .AR *• " .AR; COPY (AX,N)j 

3v6 cpysrl ♦•+ ,AR .V 2B7; 

3v7 cpysr2 «-+ .ak; 

3v6 (cpysrl): /cpysr2; *• [cpyarl]; BRX cpysrl; 

3v9 RETURN END. 

3w (err) TERROR messages are generated using this pop, number 17St 
This routine displays a message, and calls RISNLS to reset various 
things and restart at the previous state. The error message is 
indicated by the address of the pop. The code to Do this is in the 
RECINT overlay, following label XERR.5& 
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3x POP 17SB PROCEDURE (rerra,rerrb,rerrx); 

3x1 EAX /'So;(,,0)j rerrn «■ .XHj terror number^ 
3x2 EXECUTE auxcod; GOTO xerr END. 

3y (rerror) %This routine is callefi when an error of a very serioua 
Kin<3 is <3etected. Currently, RERHOR dumps the NLS core iainage on file 
(NI,S)/GBASH, writes "OOPS" followed by the calling location, and 
calls INTR5 to terminate NLS. The code to do this is in the RECINT 
overlay, following label XREBR.% 

3z PROCEDURE (rerra,rerrb,rerrx) ; 
3zl rerrz *■ $0$ 
3z2 %for debugging purposes^ 
3z3 EXECUTE auxcodj GOTO xrerr EUD. 

3a@ (abort) %When the NIS user does something wrong or types a 
command that cannot be carried out, this pop is used to abort the 
command. This is pop number 136: it simply displays a message 
indicated by the address of the pop, and calls RESNLS. The code to 
DO this is in the RECINT overlay, following label XABORT.% 

3aa POP 136B PROCEDURE; 

3aal rerrz ♦• $0; 

3aa2 EAX /■io;(,,0); rerrn «• .XRjSabort number* 

3aa3 EXECUTE auxcod; GOTO xabort END, 

3ab (ursnls) %The purpose of this routne is to restart NLS at the 
previous state. It does this by calling RESNLS in the RECINT 
overlay, which checks vairous flags to see IF anything should br 
reset before going to previous state. It checks PASIFG to see IF 
PASSl was in use, and calls XINTR9 to reset the input fork's 
relabeling IF the flag is set.f 

3ac PROCEDURE; 

3acl EXECUTE auxcodj resnlsO END, 

3ad (compr) ?SThis routine is used by several pops to compare two 
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numbers (binary integers), A relation is given in the x, and the two 

numbers in the A ancS B. It RETURNS the result of the compare in the 

A. The numbers corresponding to the relations are specified by the 
relations defined in ADATA.% 

3ae PR0CEDURE(co!nprl,compr2,compr3) ; 
3ael IF corapr3 " 1 THEN 

3aela .AR *• IF COiprl < comprS THEN 1 ELSE 

3ae2 ELSE IF coi!ipr3 « 2 THEN 

3ae2a .AR ♦- IF comprl <« coinpr2 THEN 1 ELSE 

3ae3 ELSE IF C0Ripr3 » 3 THEN 

3ae3a .AR <• IF comprl « compr2 THEN 1 ELSE 

3ael^ ELSE IF C0mpr3 » k THEN 

3ae]ia .AR ♦• IF comprl >» conpr2 THEN 1 ELSE 

3ae5 ELSE IF conpr3 * 5 THEN 

3ae5a .AR «• IF coraprl > compr2 THEN 1 ELSE 

3ae6 ELSE IF coinpr3 « 6 THEN 

3ae6a .AR <• IF comprl NOTa co!npr2 THEN 1 ELSE 

3ae7 ELSE rerrorO; RETURN END. 

3af % The following routines are used to read various fields from 
RING elements. They all require a PSID in the A upon entry. Each 
of these routines calls LODRSV to get the RING element into core,* 

3afl (GETSUO) %The PSID in the successor field is RETURN in the 
A,% 

3af2 PROCEDUREl lOdrsv{.AR»j RETURN (tlf.XR; ,A 3777B) END. 

3af3 (SETSUB) %The PSID in the sub field is RETURN in the A. 

3afll PROCEDUREJ 10drsv{.AR)j RETURN(LRSH $13($1[ ,XM} ) ) END, 

3af5 (GETFTl) fThe logical value of the tail flag is RETURNed in 
the A,* 
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3af6 PROCEDURE; lodrsv ( .AR) ; RETURN ( iir.XR; -A liOOOB ) END, 

3af7 (GETFHD) %The logical value of the head flag Is RETURNed in 
the A,% 

3af8 PROCIDUREJ lodrsvi ,AR) J RETURN { ilf.XR; .A ) END, 

3af9 (GETFLG) %Given a flag number in the x, the logical value of 
that flag is RETURNed in the k,% 

3aflO PROCEDURE; 

3aflOa gtflgl «• .XR+1; 

3aflOb lodrsvO ; 

3aflOc .BR *■ ilOf.XK;; %tl&g word* 

3aflOd RETURN (LSH «0/"gtflgi; .A 1) END. 

3afll (GETSDB) ^The PSDB in the specified ring element is RETURNed 
in the k,% 

3afl2 PROCEDURE; 

3afl2a lodrsv(.AR); %load proper ring blocK% 

3afl2b RETURN {«0/'.XR; ,A 77777B) %pa6b% END. 

3afl3 IGETNAM) »The 2k bit hash word for the statement name is 
RETURNed in the A,% 

3aflli PROCEDURE; lodrsvO; RETURN {$2/". XR; ) END. 

3afl5 IGETVDB) fThe PVDB in the specified ring element is RETURNed 
in the k,% 

3afl6 PROCEDURE; lodrsv(.AR); RETURN (S3r«XR; .A 77777B) END. 

3ag (fechcl) %This routine is called to initialize a worK area for 
reading characters from a statement. It is called with the address 
of the IS word work area in the X. The A indicates the direction in 
Which characters are read from the statement, A asero will cause the 
routine to read the characters out backwards, and non-zero will 
result in the reading forward, 

3agl When calling FECHCl, the first two cells of the work area 
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must contain the PSID and character count for the first character 
to be read, respecitveiy, A character count of one indicates the 
first character of the statement. FECHCl will initialize the rest 
of the work area. For a description of the work area, see ... 

3ag2 Calling FECHCl initializes the work area. To read 
characters from the statement, EXECUTE a BBM 2,2 with the address 
of the work area in the X. The character is RETURMed in the A 
register. Subsequent BRM's will RETURN the following characters 
in the A. After RETUHNing the last character of the statement (or 
first IF the direction of readout is backward), ENDCHARs (code 
377b) will be FETURNed from subsequent calls indefinitely. 

3ag3 To change position within the statement, chanie direction, 
or read from a different statraent, the work area must be 
reinitialized by calling FECHCl again, as described above. % 

3ah PBOCIDURE{fechdr,,fechtl)} 

3ahl getsdb{$or,XR;) J lodsdbi.AR); 

3ah2 .AR «- .XR+7J .XR *- fechtl; 

3ah3 «12r.XR; «- .ARj a7/'.XR;<-$12/".XR;+«ir.XR;/3j 

3ahJii fechtl«".BB; 

3ahS IF NEG fechtl DO-SINQLE rerrorC); 

3ah6 33/'.XP;«-201k000l|.B*fechtlj %bru* li,2% 

3ah7 IF fechdr THEN BEGIN 

3ah7a $h[.mj*'$ttchls .$5/.XR;«-{Bffch2j 86/',XR;«-iffch3 END 
3ah8 ELSE BEGIN 

3ah6a SJi/'.XR/^Sbfchlj iSf. XR;<-«bfch2; sef.XPJ^-SbfchS END? 
3ah9 |;er,XR/«-I,SH S8 (0,r$7/".XR;; ) | 
3ahlO f^/.XRi+'LSH $8(0)j 
3ahll $10 [ ,XU] *'LSU #8(0); 
3ahl2 RETURN; 
3ahl3 (ffchl)j 

3ahl3a BUMP Sl/.XR/, S3f.XR;j 

3ahl3b SSr.XR/^LSH $&(0, [$7[,liR} J) ; 
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3ahl3c S9/'.XR/«-LSH $8(0)1 

3ahl3cl ilor.XR/<-LSH S8{0); 

3ahl3e IF »8/'.XR; NOT* endchr DO-SINOLE BRR $2[,%nJi 

3ahllt (ffche)s $3C,XU} *- .BR *- tchenxs; BRR taf.XR/j 

3ahl5 (fechenb)i GOTO fehencSj 

3ahl6 (ffch2): BUMP iir.XR;, S3/.XR;j 

3ahl6a IF $9[.XRJ NOT« endchr DO-SINGLE BRR saf.XRjj GOTO 
ffchej 

3ahl7 {ffch3)! BUMP «l/.XRi, S7/.XR/J 

3ahl7a ®3r.XR;«-2011i0001^Bj 

3ahl7b IF ilor.XR; NOT» enfichr DO-SINQLE BRR sa^.XRij GOTO 
ffchej 

3ahl6 (fchend): BRR «2/'.Xr; (endchr) j 

3ahl9 (bfcni)s $lf,XRj, i7/'-XR;<-+ -1; 

3ahl9a t3/'.XR;«'20lliO006B; 

3ahl9b IF «8/",XRi NOT» endchr DO-SINGLE BRR $2[,m]} GOTO 
ffchej 

3ah20 (bfch2): t3/".XR;*+ -Ij $1/.XR; <•♦ .ARj BRR 
»2/.XR;(«9/'.XR/)j 

3ah21 {bfch3) : Slf.XR;, $3/".XR;<"+ -Ij 

3ah21a «8r,XR;«-LSH $& iO » t$li .XR] }) ; 

3ah21b $9/'.XR7<-LSH #8(0) j 

3ah21c BRR S2/'.XR;(LSH $8(0)) END. 

3ai (fchsdb) %This routine is called with a PSID is the A, in order 
to load the text for that statement into core. It RETURNS the 
address of the SDB in the X, and the SDB block number in the A.f 

3ad PROCEDURE; RETURN (lodsdb (, ,get8db ( . AB) ) ) END, 

3ak (newrfb) %NEWRF8 is called to obtain a new random file block. If 
no more blocks are available, RERROR is called, otherwise the random 
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file block status (RFBS) for that block is set to minus one (meaning 
assigned but not initialized}, and the random file block number is 
RETURNea in the A, LODRFB will initialize the block when it is 
loaded into core for the first time,% 

3al PROCEDUREJ 

3all nwrfbl <• Oj 

3al2 WHILE nwrfbl <= rfbsx DO IF rf bs/nwrfbi; s THEN BEGIN 

3al2a rf bsfnwrfbi;*—!! % mark assigned but not initialised^ 

3al2b RETURN (nwrfbl) END 
3al3 ELSE BUMP nwrfblj 
3allt rerrorO END. 

3an (lodrfb) %This is the PROCEDURl that everyone calls to have a 
random file block loaded into core. Also, it is possible to obtain a 
block of core which is empty and not associated with the file. For 
example, a long literal register is created in this way. There are 
several IK blocks in core, some of which may be "frozen", which means 
that they may not be moved or used for anything else. LODRFB loads 
the desired file block into one of these core blocks, on entry, the 
A contans the random file block number, and the B contains the block 
type, or -1 IF no file block is to be read into that core block. The 
algorithm is apporximately as follows? 

3aml First, a block is chosen, A quick scan is made to find an 
unused block. If all are in use, THEN a circular counter (NACP) 
is used to find the "next" core block that is not frozen. If all 
are frozen, RERROR is called. 

3am2 RERROR is called IF the desired clock does not exist, 

3ara3 If the newly found core block contians a file block, then 

3am3a IF the file block is empty, it is released to the sytea 
and the corresponding status block is set to indicate that that 
block is not around, or 

3am3b that block is written out on the file IF the check sum 
has changed, and the random file status block is set to 
indicate that that block is on the file and not in core, 

3am3c When releasing the block to the system, or writing the 
file block, a working copy is created if NLS is not already 
working from a working copy. 
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3amli At this point, IF the blocK type is negative, LODRFB RETURNS 
with the core block number in the X, Otherwise the desired file 
block is loadea into the core block. The block is read from the 
current file IF the random file is not open, 

3amS If the random file block has not been initialized, the 
initialization is done now. otherwise the checksum and file type 
are checked. HFBIRR is called IF either of these checks fail. 

3am6 Finally, the random file block status is set to show that 
the block is now in core, and the index for core blocks (FFIFCB) 
is set to indicate which random file block is in that core block. ?5 

3an PROCEDURE (ldrfbl,ldrfb2); 

3anl %block number, block type% 

3an2 %choose the next core oage to use^ 

3an3 %look for an unused one^ 

3an!i, ldrfb3 *■ Oj 

3anS LOOP BEGIN 

3an5a IF ldrfb3 > rficbx THEN EXIT; 

3anSb IF rfifcbfldrfb3; « THEN BEGIN 
3an5bl IF NEG frzcbtr.XR; THEN BEGIN 
3an5bla nacp <• .XR; EXIT END ENDi 

3an5c BUMP ldrfb3 END; 
3an6 ldrfb3 *■ 0; 
3an7 LOOP BEGIN 

3an7a nacp ♦■ (nacp+l) t (rficbx+1) ; 

3an7b IF NEG frzcpt/nacp; THEN EXIT; 

3an7c IF rficbx <■ ldrfb3 DO-SINGLE rerrorO; 

3an7d BUMP ldrfb3 END; 
3an6 (idrfU) s 

3an8a %IF file sectors belong to system allocate them% 
3an9 IF rfbs/"ldrfbl7 * THEN rerrorOj 
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3an9a %watch for attempts to load unknown blocKs% 

3anlo %IF core block is in use write it out, IF it is all free% 

3anH % release it to the system (brslk)is)% 

3anl2 IF rfifcbrnacp; NOT* THEN BEGIN 

3anl2a IF il/'crpgad/'nacp;; « ifrwdp THEN BEGIN 

3anl2al IF NOT rffn DO-SINGLE getwlcaOj 

3anl2a2 BRS $lkk {rfifcb/"nacp;»blKsz,10001B,rffn) j 

3anl2a3 BRS $ll^l^(blkszil0007B,rffn) i 

3anl2alt IF S2/'crpgacl/nacp;; ■ 1 THEN sdbst/"$lt/".XR;; *- 

3anl2a5 ELSE IF .AR « 3 THEN rsvsttskt ,XRJ } *■ 

3anl2a6 ELSE IF .AR « k THEN VdbstrSJif .XR;/ *■ Oj 

3anl2a7 rfbsfrfifcb/nacp;;«-0 END 

3anl2b ELSE BEGIN 

3anl2bl idrfbli. *• cKsuin(nacp) j 

3anl2b2 IF SOfcrpgad/nacp;; NOT» Idrfblt OR .AR s o THEN 
BEGIN 

3anl2b2a $0[,xn] ♦• Idrfbli; 

3anl2b2b IF NOT rffn DO-SINGLE fetwkaOj 

3anl2b2c •BH«-{rfifcb/'nacp; .A rfa!n)*blKsz; 

3anl2b2d DBO rffn(blksz,,crpgad/'nacp;) ENDi 

3anl2b3 .AR<-IF $2rcrpgadrnacp;; « 1 AND NEG $3r.XR7 AND 
Sir.XRj > ralS+20 THEN -2 

3anl2bli ELSE -®1^Xr;j 

3anl2bS rfbs/'rfifcb/'nacp;;«-,AR END ENDj 
3anl3 %load the new blocks 
3anlU IF NEG ldrfb2 THEN BEGIN 

3anllia rfifcb/nacp/ ♦• Oj RETURN END; 
3anl5 IF rffn THEN BEGIN 
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3anl5a .BR > idrfbl^blKszj 

3anl5b CBI rffn(blK;sz,,crpfaclfnacp; ) END 
3anl6 ELSE BEGIN 

3anl6a .BR *• ldrfbl#blKszj 

3anl6b DBI curfn(blKsz,,crpga<l^nacp/) ENDj 
3anl7 %IF a branS new page set it up, IF an old one checK cksum% 
3anl8 IF rfbsridrfbi; = -1 then BEGIN 

3anl6a sorcrpiad/nacpi/ *■ icksum; 

3anl6b SI/'.xr; «• ifrwdpj 

3anl8c S2f.XR; «■ ldrfb2 END 

3anl9 ELSE BEGIN 

3anl9a IF cksumfnacp) HOT* SOfcrpgad/'nacp;; THEN 
RETURN (rfberrO ); 

3anl9b IF Ssrcrpgaarnacp;; NOT« l<lrfb2 THEN RETURN (rfberrO) 

END; 

3an20 rfbs/'ldrfbl/ «■ crpgadfnacp/ j 
3an2l rflfebfnacp; *• idrfblj 
3an22 RETURN END, 

3ao (rfberr) %This routine is called only by LODRFB as indicated 
above. If file cleanup is in progreess, it sets a flag and simulates 
a RETURN froi LODRFB, Otherwise it generaes an ERROR (bad file 
block) ,% 

3ap PROCEDUREj 

3apl IF flcufg THEN BEGIN BUMP flcuerj RETURN END; 

3ap2 ierr »7 END, 

3aq (cksum) SThis PROCEDURE takes a core block number in the A and 
RETURNS the check sum of that IK blcok in the a. The checksum does 
not include the first word of the IK block (that's where the ckecksun 
is kept) ,% 

3ar PROCEDURE; 
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3arl .XR «• .AHj 

3ar2 cksuml *■ crpgacJf .XR;+telKsz .V 20000000Bj 

3ar3 .XR *- -(blKsz-1) ; 

3arli .AR «• Oj 

3arS .AR ♦• .AR + [c^BumlJ ; 

3ar6 BRX .-Ij 

3ar7 RETURN END, 

3as (ovl) %This is a pop used only in the overlay tables. The 
address of the pop indicates the overlay number. A cell preceeding 
the pop contains the address of the OVL pop for the overlay required 
to run this one. The sign bit of that preceeding word is on IF this 
overlay is in core, and is off otherwise. The purpose of the pop is 
to get this overly in, as well as all others required to run it. It 
does this recursively, which is not such a good idea. It calls 
OVLDPG to get the required page relabeled in, When the top level pop 
is completed, relabeling taKes place (BRS kk) IF the internal 
relabeling has changed. % 

3at POP 176B procedure; 

3atl lAX rso;(,,0); .XR«-.XB-»ovltbj % ovl NOTs in x % 

3at2 WHILE .XR NOTs DO BEGIN 

3at2a IF NOT .NEQ ovrltf.XRi THEN ovrelf «■* ovldCovltbr.XR/ .A 
7, t .XR) } 

3at2b .XR *■ RSH S3(ovltbf.XR;) .A 7777B END; 

3at3 IF ovrelf THEN BBS S1|.U (rlrl,rlr2) ; 

3atl^ ovrelf «• Oj RETURN END. 

3au (ovldpg) %Given an overlay number in the X, this routine gets 
that overlay into the internal relabeling (RLRl and RLR2). It 
RETURNS zero in the A IF the relabeling has not changed, otherwise it 
RETURNS non-zero, the data areas OVPGT, OVLTB, and CORTB must be 
intact for this routine to work correctly.* 

3av PROCEDURE ()} % overlay adr in x % 

3avl RETURN ( ovldn(,, .XR-$ovltb) ) END. 
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3aw (lodsdb) %kn SDB block is loaded into core by calling thia 
routine with the PSDB in the A. It RETURNS the SDB block number in 
the A, and the address of the SDB in the X. If the SDB does not 
exist, it generates it (which is not such a food idea),% 

3ax procedure; 

3axl idsdbl ♦ RSH $9(#0)j %index into sdbst for the sdb block 
identified by psdb% 

3ax2 idsdbZ ♦■ LSH $10(0) ;%relative adress of sdb in block% 

3ax3 IF sdbstl NOT > Idsdbl DO-SINGLE rerror { ) j%ille|al sdb block 
no. (from psdb)f 

3axi|. IF sdbst/ldsdbi; ■ THEN BEQIN %block un-allocated% 

3axli,a sdbstridsdbi;*-newrfb() ; %get new block* 

3axlj,b lodrfb(.AR,l) ; %load and initialise blck% 

3axli.c flinrfbsnsdbstfldsdbi;);)/ *• ldsdbl;%number of sdbst 
entry% 

3axlj.d i3/'.XR/ «■ 0% garbage collection flag (mark not 
colected)?5 END 

3axS ELSE IF rfbsr(sdbstfldsdbi; ); <* THEN Sblock is allocated, 

but not in memory. .load it* 

3ax5a lodrfb (sdbst /"Idsdbl^ ,1) j; 
3ax6 ,XR *■ rfbsnsdbstAdsdbi;);+ldsdb2; fcore address of sdb* 
3ax7 RETURN (Idsdbl) END, 

3ay (lodvdb) *Given a PVDB in the a-register, load the VDB into core 
and RETURN the starting location in the x-register and the block 
number in the a-register.* 

3az PROC; 

3azl ldsdbl«-RSH ilO(.AR); 

3az2 ldsdb2«-LSH $10(0); 

3az3 IF vdbstl <■ Idsdbl DO-SINGLE rerrorO; 

3azli IF vdbstridsdbi; « THEN rerrorO; 

3az5 IF rfbs/.AR; <» THEN lodrf b (vdbst/"ldsdbi;,2) ; 
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3az6 RETURN (ldsdl>l,,rfbsnvdbst/'l<Ssdbl/);+l(lS(ib2) ENDt 

3158 (ovlgo) %This routine is called to RETURN to an overlay. The 
overlay address is provided in the A.% 

3t3a PROCEDURE (ovlfog); 

3bal ovlgol «• RSH «1S(«») .A 377B + $ovltb; 

3ba2 EXECUTE fovlgol/j 

3ba3 BRR ovlgo2 END. 

3bb (ovladr) %T!iis routine generates an overlay address and RETURNS 
it in the A. A lli bit address is provided in the A, and, using the 
CORTB to find which overly is in, the overlay address is created by 
or-ing in the overlay number in the top part of the word,% 

3bc PROCEDURE; 

3bcl ovladl *- .AR .A 77777BJ 

3bc2 .XR «• RSH »11(,,) .A 78; 

3bc3 RETURN (LSH SIS (COrtbf.XR/ ,0) .V OVladl .V liOOOOOOOB) END. 

3bd (regadr) %The address of a state-machine register is RETURNed, 
given the number of the desired register in the A.% 

3be PROCEDURE; 

3bel CASE .AR OF 

3bela « esn: LOAD(,,smes) ; 

3belb « nurann: LOAD{,,$numnxn) ; 

3belc « litln: LOAD{,, IF litlc THEN .AR 

3beld ELSE rerrorO); 

3bele stnn: LOAD(,,$stnxn ); 

3belf B atnoni LOAD(,,tstnoxn) ; 

3belg s sarns LOAD(,»^sar ); 

3belh ■ stn2n: L0AD(,,$stn2) ; 

3beli « fnmn: LOAD(,,$fnmxn) 






3be2 ENDCASE rerrorO 
3be3 END. 

3bf {intr2) %tiiis proceedure handles memory panics, .namely those 
caused by an attempt to access one of the random fille block pages 
when it is not in thhe relabbeelling. 

3bfl When a panic is sensed, a check is made if the system is 
experimental to see if it is legitimate, and if it is, the random 
file block page are relablled in% 

3bg PR0CEDURE{intr2a,intr2b); 

3bgl IF exp THEN BEGIN 

3bgla % firsst check to see that there is nothing: in pages 1 or 

2% 

3bglal IF LSH Sl8(,rlrl) .A 7777B DO-SINGLE rerrorO; 

3bglb %now make sure that the memory panic took place on an 
access to page 1 or 2% 

3bglbl ,BR<-.XRj fsave x register^ 

3bglb2 IF $0^antr27; .A 37777B NOT IN {1iOOOB,13777B; 
DO-SINGLE rerrorO; 

3bglb3 .XR^-.BR ^restore x regster* 

3bg2 END;%of checks^ 

3bg3 rlrl ♦■ rlrl .V rfbpgs; %put random file block pages into 
relabelling^ 

3bgk BRS S!tlt(,rlr2) ; %set system relabelling* 

3bg5 LOAD (/intr2a;,intr2b) ; %restor b register.. load return 
address into a registerf 

3bg6 XMA intr2aj %restore a, and store return addreto intr2a% 

3bg7 GOTO /'intr2a/ %return% 

3bg6 END. 

3bh (intrli) PROCEDURE; 
3bhl terr Sli; NULL END. 



23 



3toi (intrS) %This is an interrupt routine to handle the 205 
pseudo-interrupt. That interrupt is used to terminte NLS, The 
routine closes the display, the worKing file, and terminates. % 

3bj PROCEDUREl 

3bdl IF NOT todas THEN BEGIN % reactivate display tty simulfttion* 

3bdla IF not .SKIP BRS «-l(,,ttyno) DO-SINGLE rerrorOj 

3bdlb .AR «• BRS S-9(l,,ttyno) i 

3b;51c .AR *- BBS i-2{,,ttyno) 
3bd2 END; 

3bd3 .AR *■ BRS $170 i %close all files?S 
3bclli curfn «■ 0| 
3bd5 EXECUTE recintj 

3b j6 rlssomO; ^release some memory so kdf, etc can run* 
3bd7 .AR «• BRS $ 10 END, 

3bK (intr?) %This interrpt (207) is created by the input £orK when 
the main program has requesed to be interrupted when a character has 
come in. The rouitne simply restarts the main program in the input 
routine by branching to INPTCX,% 

3bl PROCEDURE; 

3bll IF NOT .NEG tinpfb DO-SINGLE rerrorOj finp£bk is not in 
relabelling* 

3bl2 .AR <• BRS #78 (intmsk) | %re-*arm interrupts* 
3bl3 GOTO inptcx END, 

3bffl (intr?) %This interrput is generated by the input fork when 
PA3S1 is completed. The routine calls XINTR9 in INPFBK, and RETURNS 
to the input routine,* 

3bn PROCEDURE; 

3bnl IF NOT .HEQ tinpfb DO-SINGLE rerror ( ) { *inpfbk is not in 
relabelling* 

3bn2 xintr9{); 
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3bn3 intr7() END, 

3bo (intrlO) ^Interrupt 10 is generated by the input fork, when, 
(luring outputting, a rubout is typed. The routine causes the main 
program to go to the previous state. The saie function Is taken care 
of for todas in the routine rubout% 

3bp PROCEDUREj 

3bpl .AR «■ BRS S78(int»sk)j %re-arin interrupts* 

3bp2 EXECUTE mnctrl; 

3bp3 ursnlsO IND. 

3bq (hash) %An a-string address is required in the A. The hash code 
for that string is RETURNd in the A. RERROB is called IF the bash is 
zero. Calling HASH with an empty A-string will result in this CALL 
to RERROR.% 

3br PROCEDURE (hashl) I 

3brl 5Ja-stringf 

3br2 SUMP hashlj 

3br3 hash2 *• /'hashli/3j ^length of string in words (not including 
any characters in the last word) in the a, number of characters in 
the last word in the B%% 

3brlt .AR <■ 0; 

3br5 (hashl); 

3br6 BUMP hashlj 

3br7 .AR «- RCY $3{,.AR)+/'hashi;j 

3br8 IF NOT .DECNEQ hash2 SINaiE GOTO hashlj 

3br9 IF .AR s THIN lerr f6j 

3brl0 RETURN END. 

3bs (getwka) fThe purpose of this routine is to get a working copy 
of the file now being used, it must avoid changing the rebleling, 
or the core blocks. It works as follows: 

3bsl It opens the random file. 
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3bs2 If the lOCTL overlay is not In, the relabeling is saved and 
that overlay is brought in. 

3t>s3 The nessafe "working copy created" is displayed, 

3bsli. The routine COPFII is called, 

3bsS The message is removed and the relabeling restored. The 
current file is closed. % 

3bt PROCIDUREJ 

3btl %get working random filef 

3bt2 declare dwgwkas (19,19, "working copy created")! 

3bt3 IF NOT rfwfg DO-SINGLE rerrorO; 

3btk %write-ok flag not set% 

3bt5 IF NOT rffn DQ-SINQIE opnrffOj 

3bt6 IF NOT ,NEG tioctl THEN BEGIN %ioctl not in relabelling^ 

3bt6a gtwkl *- cortbHinpffek .A 1)]; 

3bt6b gtwk2 «■ cortbMdisbuf .A 7)J$ 

3bt6c gtwkli. ♦- cortb/"(ioctl .A 7)Ji 

3bt6d gtwk3 <- fOj 

3bt6e EXECUTE ioctl END 
3bt7 ELSE gtwk3 «• 0; 
3bt6 dismes(Sdmgwka,l) ; 
3bt9 copfil(curfn,rffn) J 
3btlO dismes(,0); 
3btll IF gtwk3 THEN BEGIN 

3btlla ovldn(,,gtwkl) J 

3btllb ovldn{,,gtwk2); 

3btllc ovldn(,,gtwkij.) J 

3btlia BUMP ovrelf; 

3btlle EXECUTE nothgj 
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3btllf $0 «- gtwK3 END; 
3btX2 BRS S20(curfn)j 
3btl3 curfn+'O} 

3l3tlll RETURN END. 

3bu (opnrff) %Tnis routine opens the working random file (/oxx). The 
£ile number is containea in RFFN,% 

3bv PROCIDUREj 

3bvl BUMP opnlgj 

3bv2 (opnrfl) : 

3bv3 IF not .skip BRS il9 (52000000b, 0,rfsn) do-SINGLE goto opnrflj 

3bvli, rffn *• .ARj 

3bvS opnfg *■ 0; 

3bv6 RETURN J 

3b v7 (opnrfl): 

3bv6 IF ,XR 9 -3 THEN intrS ( ) I 

3bv9 % drum space exhaustedi% 

3bvlO Terror () J %call rerror in other cases* 

3bvll GOTO opnrfl END, 

3bw (brs66x) %This routine is called with a randOR file number in the 
A. It deletes the contents of the file, and set the liength to a very 
large number. % 

3bX PROCEDURE; 

3bxl ^delete contents of file% 

3bX2 .XR «■ BRS ®66(.AR)J 

3bx3 RETURN (BRS $ llil^ (1000000B,10002B, .XR) ) END. 

3by (lodrsv) %This routine is similar to LODSDB. It loads a ring 
block into core. The PSID is provided in the A, and the BSV block 
number is RETURNed in the A, along wth the address of the PSID 
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element in the X. 

3byl (ring element) foriat of ring element: 
3byla Word 1: 

3bylal [OtlJ - statement name flag 

3byla2 [lilj « content analyser test flag 

3t)yla3 C2ilJ ■ on if statement has passed CA test 

3bylali [9tlSJ » ps<3b 
3bylb word 2: 

3bylbl /"Otli; s psid of sub statement 

3bylb2 /"ll:!; * Head flag 

3bylb3 [IZtlJ * Tail flag 

3bylbli ClJillJ ■ psid of successor 
3bylc word 3s 

3bylcl Hash code for name (Osno name) 

3byld word ij.: 

3byldl pvdb if there is a vector picture with stateinnt, 
othrwise 

3byle % 

3bz PROCiDURE; 

3bzl *psid in a, RETURN® block NOTs,, core address^ 

3bz2 Idrsvl *■ BSH S8(.AR + rsvhdr,0) ;%ring block number into 
ldrsvl% 

3bz3 IdrsvS ♦■ LSH ilO(O); ?lword address of first word of ring 
element for this psid% 

3bzli IF rsvstl <a Idrsvl DO-SINGLE rerrorO; ^illegal ring block% 

3bz5 IF rsvstjfldrsvi; a o THEN rerrorO; «ring block not 
allocated^ 

3bz6 IF rfbsf.AR; <= THEN BEGIN «not in core.. load it% 

3bz6a lodrfb(.XR,3); 
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3bz6b .AR «" rfbs/rsvst/'iarsvi;; endj 
3t)z7 ,XR «• .AR + Idravaj 9&core address of ring element* 
3bz8 RETURN (larsvl) END, 

3cS (Iknamh) %This routine will look up a name, given the hash code 
in the A, it looks it up rather inelegantly, by scanning ail ring 
blocks for a PSID element with that hash code in it. It skips on 
success, with the PSID in the A, and core address of the PSID element 
in the x.% 

3ca PROCEDURE (iknmhl); 

3cal %hash code, return psid,, address with skip* 

3ca2 lknmh2 «• Oj 

3ca3 WHILE rsvstl >« lknmh2 DO 

3ca3a IF rsvsti'lknmh2; not= THIN BEGIN 

3ca3al iknmhS *■ ISE S8(lknmh2,0); 

3ca3a2 %first psid in this block% 

3ca3a3 lodrsv(lknmhS) 1 %get ring block into core% 

3ca3ali lknmh3 ♦" .XR ♦ 2j %address of word in this ring 
element containing hashf 

3ca3aS Iknmhlj. *• IknmhS + 2Slij %psid of last ring element in 
this ring block* 

3ca3a6 LOOP BEGIN 

3ca3a6a IF aknmh3; « Iknrahl THEN 

3ca3a6al %the hashes are equal. .return with a skip* 
3ca3a6a2 SKIP RETURN (lknTOh5,,lknmh3-2) j 

3ca3a6b BUMP IknmhS; *next psid* 

3ca3a6c lkninh3 <•♦ h; faddress of next ring element (in 
this block)* 

3ca3a6d IF IknmhS >» Iknmhli DO-SINGLE EXiTj *get next 
ring block* 

3ca3a6e NULL END; 
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3ca3a7 NULL ENDj 
3ca3b BUMP lKn!ih2 END; 
3cak RETURN END, 

3cb (asrbuf) ^This routine moves an a-string to a buffer. It 
requires the a-string address in the A, and the buffer address in the 
B, It RETURNS the address of the last word used in the A, and the 
number of print characters transmitted in the B,% 

3cc PROCEDURE {asrfrffl,asrtoo) J 

3ccl %asrnc is number of print char tran?l 

3cc2 % moves a character a-string to a buffer % 

3cc3 Srooffi at buftoo has been checKed. final word filled with 
nulls% 

3ccli % addr of last cell used RETURNed in a% 

3cc5 BUMP asrfriaj 

3cc6 IF rasrfrm; < THEN RETURN (aartoo-l) i 

3cc7 %no transfer of null strings^ 

3cc6 asrnw <- /"asrfrra; / 3 ■♦■ 1; 

3cc9 asrnc *• [tartrmj *1; 

3celO asrrein <» .BRj 

3ccll BUMP asrfrm; 

3ccl2 ^asrfri now points to first word to be wovedf 

3ccl3 asrnw *■ mvbfbf(asrfrn,asrtoo, asrnw) j 

3cclli %asrnw now contains addr of last cell where data was moved 

too% 

3ccl5 .AR •• /"asrnw/j 

3ccl6 EXECUTE chrrsh/'asrrem; ; 

3CC17 .BR «• 376771iOOB ; 

3ccld % nul nul blank % 

3ccl9 EXECUTE chrlsh/.XB; ; 
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3cc20 /"asrnw; ♦• .AR; 

3CC21 RETURN (asrnw.asrnc) END. 

3ca (mvtofbf) %This routine moves a buffer of words, on entry, the A 
indicates how nany words, the B the address of the buffer to be moved 
to, and X the address of the buffer to be moved from. It RETURNS the 
address of the last word moved into in the A.% 

3ce PROCIDUBE (invfra,mvtoo,ravnw) s 

3cel % too RETUHNed in the a % 

3ce2 rovfrm,mvtoo ♦•+ mvnw ,V 20000000B j 

3ce3 .XR «• -nvnwi 

3cek /mvtoo; ♦■ /"mvfra; j 

3ce5 BBX /.-2/s 

3ce6 RETURN ((invtoo ,A 377778) -1) END. 

3cf (clrdpy) %This routine clears the display screen starting at the 
line number given in the A, % 

3cg PROCEDURE (clrdDj 

3cgl ^clears screen starting at line clrdl. text left intact% 

3cg2 WHILE clrdl < cdnlin DO BEGIN 

3cf2a clrlin(clrdl) J 

3cg2b BUMP clrdl END; 
3cg3 dllau9*-dllauxj 
3cgli dllaux<-0| 
3cg5 RETURN END. 

3ch (clrlin) %This routine is used to clear a line from the display. 
The line number is provided in the A.% 

3ci PROCEDURE (clrll); 

3cil .XR *• LSH $1(,0)J 

3ci2 dllbufr.XRi *- 1} 
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3cl3 RETURN END. 

3ci (resdpy) %Tliis floes a food deal of tricKy stuff with the disply 
but its hard to tell just what from the code,% 

3ck PROCEDUREj 

3cKl Presets display from the dirt, % 

3ck2 dllaux«-dllau9; 

3ck3 dllbuf /"dismlt; «• Ij 

3ckk dllnam ♦• Sdlpnam; 

3cKS cdlitf «■ 1; 

3ck6 IF cdclin <■ DO-SINGLE RETUEN,' 

3ck7 resd2 «■ -cdclin -1; 

3cka .XR *- «dlrt; 

3ck9 resdl *• tdllbuf; 

3cklO WHILE resd2 DO BEGIM 

3cK10a fresdi; *■ S3/".XR7; 

3cklOb EAX cedlrx/'.XRJ J 

3cklOc BUMP resd2j 

3cklOd resdl *-+2 END; 
3ckll RETURN END. 

3cl (clrall) %l think this wipes out the whole disply but it would be 
nice to know just what it does. It has an argument in the k,% 

3cn PROCEDURE (clraDj 

3cml clra2 ♦• $dlrt + dlrtx#clralj 

3cm2 WHILE clral < cdnlin DO BEGIN 

3cm2a clrlinCclral) i 

3cin2b /■clra2; *■ 0; 

3cm2c »l/"clra2; «• Oj 
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3ciR2d 83/". XR; *■ ,ARJ 

3cia2e BUMP clralj 

3cp2f clra2 *•* dlrtx END; 

3cm3 RETURN END. 

3cn (gdlset) % ???? % 
3co PROCIDUREj 

3col %line number in x register — • gives correct dirt entry% 

3co2 LSH i2{,.XR); 

3co3 .XR «• .BRj 

3coli .XR *• «dlrtr.XR;j 

3C0S RETURN END. 

3cp (gailcl) % ???? % 
3cq PROCEDURE; 

3cql LRSH $lH$0[,XRj)i 

3cq2 RETURN END. 

3cr (gaipsi) % ???? % 
3CS PROCEDUREJ 

3csl LRSH $13($1(,XUJ)} 

3cs2 RETURN END. 

3ct (gdlpwd) % ???? % 
3cu PROCIDURI; 

3cul RETURN («2f.XR;) END, 

3cv (gdladr) % ???? % 

3cw PROCEDUREJ 
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3cwl RETURN ($3/. XH; .a 37777B) END. 

3cx (gdiwas) % ???? % 
3cy PROCEDURE; 

3cyl LRSH $lk(»3/'.XR;)} 

3cy2 RETURN END, 

3CZ {gtJiaot) % ???? % 
3dS PROCEDURE} 

3d@l RSH $9{$Q[,^n}) .A 1} 

3d®2 RETURN END. 

3da (gainul) % ???? % 
3dl3 PROCEDURE} 

3dbi RSH $7{ao/-.xR;) .A Ij 

3db2 RETURN END, 

3(30 (gdlspc) % ????% 
3<ia PROCEDURE} 

3cl<il RSH $10{$or.XR;) .A Ij 

3ad2 RETURN END, 

3(36 (gdllln) % ??? % 
3af PROCEDURE; 

3dfl RSH SlKtor.XR/) .A Ij 

3{if2 RETURN END. 

3<ii (puttab) % ??? % 

3ah PROCEDURE (puttal,putta2,putta3) J 

3dhl %1 - address where the 3 words are to gof 
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3ah2 %2 - col NOT* where tab goes% 

3ah3 %line NOT* where tab goes^ 

3dhli ,XR «• putta3»dlrtx + sairtj 

3dh5 fputtai; *• ( SS/.XRi .A 77776000B ) .V {putta2*cclhinc) | 

3dh6 BUMP puttalj 

3dh7 rputtai; ♦■ 32277577BJ 

3clh8 %tab nul nul% 

3cih9 RETURN (puttal) ^RETURNS last addr used% 

3dhlO END. 

3di (fndtab) % This procedure returns the column position of the 
next tab, given a column position in the A % 

3dj PROCEDUHEJ 

3djX %col number of tab ch is in the a reg% 

3dd2 .XR <• 0; 

3dj3 WHILE .AR > tablstr.XR/ DO .XR«',XR+1 s 

3A6k RETURJKtablstr.XR/) END, 

3d)c (mvdown) %This moves a buffer around somehow, f 
3dl PROCEDURE (mvdnl,mvdn2,mvdn3) } 

3dll Amoves mvdn2 words ENDing at address mvdnl down (in core) 
mvdn3 cellsf 

3dl2 mvdnli «• ravdnl .V 20000000B; 

3dl3 mvdnS ♦• U 

3dlJi WHILE mvdnS <* fflvdn2 DO BEGIN 

3dll|.a /"mvdnlj.; «• [mv<inl] s 

3dliib BUMP ffivdnSj 

3dlij.c mvdnk, ravdnl ♦•♦ -1 ENDj 
3dlS RETURN END. 
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3(lm (frzrfb) %This routine is called for all freezing ana thawing of 
randiom file blocks. The random file block number is provided in the 
A. The B contains a 1 to freeze the block, and a -1 to thaw it. 
RERROR is called if that block is not in core. Anyone who freezes a 
block must be sure it is thawed - and only once. At each state 
definition, IF any blocks are frozen (or over thawed) RERROR is 
called, % 

3dn PROCEDURE (frzrf 2, frzrfS) J 

3dnl ^freeze random file block % 

3dn2 %rfb index, increment (l«sfreeze,-larelease% 

3dn3 frzrfl «• Oj 

3dnli WHILE frzrfl <s rficbx DO IF rfifcbffrzrfi; ■ frzrf2 THEN 
BEGIN 

3dn)j.a frzcptrfrzrfi; «-+ frzrf3{ 

3dnlib RETURN END 
3dn5 ELSE BUMP frzrfl; 
3dn6 rerrorO end. 

3do (rellit) %This routine is called to release the literal register. 
It does nothing IF the literal register is not contianed in a core 
block, otherwise it releases (thaws) that block. % 

3dp PROCEDURE; 

3dpl IF NOT .NIG frzcptflitcb; AND litrf THEN 

3dpla frzcptjf.XR; «- -1; 

3dp2 litlc, litrf *• 0; 

3dp3 RETURN END, 

3dq (newabs) % This routine is used by CDSPLY and VCTEDT to calculate 
a new absolute position given an absolute position in the a-reerister 
and a displacement (vector) in the b-register.% 

3dr PROC{,newabl) ; 

3drl newab2«-RSH il2(.AR .A 17771777B); 

3dr2 newab3«'LSH «12<0,,BR); 
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3(Sr3 newab2«-+RSH «12{newabl .A 377737778} j 

Sark newab3«-+LSH $12(0,.BR) J 

3dr5 .ARf-LSH S12(newab2,0) ,V newab3j 

3dr6 BETURMt.AR .A 37773777B) END. 

it. %pops in the UTILTY overlay % 

k& (bt) %lf FLAG is true, a branch to the address of the pop takes 
place. The A an<s X are unchanged,* 

lib POP lOlB PROC; %branch true% 

libl .8R«-lj 

l^b2 IF .BR .CB flag DO-SINGLE GOTO [$0J i 

kb3 RETURN END, 

kc (bf) %1£ FLAG is false, a branch to the address of the pop takes 
place.% 

lid POP 102B PROC; %branch falsef 

lidl .BR«-lj 

lid2 IF .BR ,CB flag DO-SINGLE RETURN; 

lid3 GOTO /"to; END. 

kt (lai) %Load A immediate. SMAREG is set to the contents of the 
address of the pop,* 

lif POP lOSB PROOj 

lifl % load a iHmediate % 

lif2 ,XR«-Oj 

lif3 lAX {$0}; 

k£k smareg«'.XRj 

k£S RETURN END, 

kn (Ibi) *Load B Immediate. SMBREG is set to the address portion of 
the pop,* 
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kit POP 106B PROD; 

khl % load b immediate % 
liti2 ,XR«-0; 
lth3 EAX f«o;; 
khk smbreg*".XRj 
UhS RETUEN END. 

k± %The following POPs are argument pops. When used, the addresses 
are argument numbers, and the tag bit is generally on. The pops load 
RTNGEL in the X, so that the argument is referenced with respect to 
that stack njark.% 

liil (sap) %Store Argument Pointer, The two word current text 
pointer (in SWOEK) is stored indirectly through the pop address, II 

k±2 POP IISB PR0C5 %store argument pointer % 

iii2a .XP>rtncel| 

liiSb ildp sworKj Istp f$OJ END, 

h.±3 (laa) %Load Argument (A only). The A is loaded indirectly 
through the address of the pop,% 

kill. POP 116B PROCi fload argument, a only % 

iiika ,XH ♦• rtnceij 

kiltb RETURN (/"to;) END. 

UiS (saa) %Store Argument (A only). The contents of the A are 
stored indirectly through the address, % 

k±6 POP 117B PROC; %store argument, a only?J 

li.i6a ,XR4-rtncelj 

ki6b rso;<-.ABj 

ki6c RETURN END. 

h±l (lap) % Load Argument Pointer. The A"B register is loaded 
indirectly through the address using the LDP syspop,% 
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liiS POP 120B PROCj % load argument pointer % 
liiSa .XB^-rtncel; 
kl8b ildp t$OJ; 

ki8c RETURN END. 

• 

lii9 (isa) % Load Subroutine Argument. The subroutine argument 
addressed by the pop is pushed onto the stacK as an argument for 
another subroutine being called. This is a little tricky, since 
the mark has been changed by the MKS pop,^ 

liilO POP 121B PROC; %load subroutine argument % 

kilOa .XR «• rtncelj 

kllOb .XR *- S37777B/",X8;j 

kilOC RETURN (push(,/"SO;) ) END. 

• 

1|.;3 (sov) % select an overlay. This pop is used before using a SBC« 
OVC, or BRV pop, to select which overlay to load before branching. 
The overlay name is given in the address of the pop. (If no overlay 
is selected before calling one of the branch pops, no change in the 
overlay configuration will take place), % 

kk POP 137B PROCj % select overlay % 

kkl EAX f$0}{,,0); 

kka sovl«".XR{ 

kk3 RETURN* END. 

Ill (sbc) % suBroutine Call. The RETURN location (pointed to by 
RTNCEL) is set to the overlay address of the SBC instruction. Then 
the selected overlay (IF any) is called in, and a branch to the 
subroutine address is executed. % 

km POP 107B PROCi % subroutine CALL % 

kml ovladr{.SO); 

km2 GOTO ovcsta END, 

kn (ovc) % overlay Call. This works the same as SBC, except that the 
RETURN location that is stored, is the previous state. This 
implements the minus calls in the input-feedback language, % 
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1^0 POP lltOB PROC; ^overlay call- no RETURN (gps) % 
kol .AR ♦• state-lj 
ko2 (ovcsta): 
lio3 rrtncei; *• .AR END, 

k-p (brv) % BBanch to overlay. This pop callis in the selected overlay 
(IF any), and brandies to the address given in the address of the 

pop.?6 

liq POP lk3B PROCj % branch to overlay % 

Iiql (brvl): 
Uq2 EAX /"al0;(,,0); 
!|.q3 Gvcl«-,XR; 
kqk EXECUTE {sovlJl 
kqS sovl«"inopcodj 
kq6 GOTO /'ovei; END. 

kr (lass) % Load argument String on Stack. The address of this pop 
is taken as two Ij, bit numbers, say nl (bits 16-19) and n2 (bits 
20-23), Then the addresses of pointers P(nl) through P(n2) are 
loaded on the stack in that order. This implements the fPl-ei 
construct, and saves a good deal of core in the TXTEDT . overlay, % 

ks POP 1U5B PROCEDURE; %load argunent string on stack^l 

ksi EAX r®o; (,,0) J 

lis2 lassl ♦• BSH $k(.XR,0)j 

Iis3 lass2 «• LSH «5(0,.8R) + tpOj 

ksk lassl «- LSH SKlassl.O); 

ksS FOB lass3 FROM $pO + lassl INC 2 TO lass2 DO 

ksSa push(,lass3) ; 
Us6 RETURN END. 

kt (las) %Load Argument stack. The word addressed by the pop is 
pushed onto the general stack, subroutine arguments are loaded with 
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this POB.% 

liu POP llliB PROC; ^Sload argument on stack % 
llUl RETURN {push(,/*iO;)) END. 

iiv (anypop) %Zero address POP'sf 

l^vl POP 177B PROCj 

li.v2 EXTERNAL spr, txt,cec,cic,gc, gps, Kset,mks,atg,clr % % 

ltv3 GOTO ($OJi 

kvli (sbr)s %SuBroutine Return, Control RETURNS to the location 
and overlay in which the last CALL (SBC) took place, % 

!iv5 ^subroutine RETURN % 

Hivga rtncel^-SSTTTTB Trtnceli j 

livSb ,XR«-.XR-2; 

kv5c stacK<-,XR; 

kv5d IF NOT ,NEG $2(,mj DO-SINGLE BER SSf.XR/; 

livSe ovlgo($2/'.XR;) J 

kv6 (txt) ! %The contents of the A and B registers is passed on to 
the create display routine. This may involve an overlay change 
to Ret CDSPLY (now in page S) and DISBUF (now in page 7) in, but 
control will RETURN to the overlay in which the ANYPOP TXT tooK 
place. There is a danger here? note that ONLY the overlay in 
which the ANYPOP TXT was located (and overlays above it in the 
overlay structure) will be relabelled back in. Thus IF an 
overlay in page S or 7 is brought in, THEN a TXT is done from a 
page other than S or 7, the overlay may not still be in page 5 or 
7. % 

kv7 % create a new display % 

kv7a istp sffitemp; 

liv7b IF todas DO-SINGLE RITURNi %todas% 

liv7c IF paslfg DO-SINQLl RETURNj 

l),v7d txtloc«-ovladr(iO) J 

ltv7e EXECUTE rfbp2; 






kvlf EXECUTI cdsplyj 

kv7| IF NOT Cdtref THEN BEGIN 

li.v7|l lldp smteiRp; 

I^v7f2 crecSisO END 
kvlh EISE BEGIN 

iiv7hl ildp smtempj 

!iv7h2 cdtreeO END; 
liv7i ovlfo(txtloc) J 

!iv8 (cec); %Copy Entity Character. The entity character (in 
SMEC) is copied into SMBBEG.% 

!iv9 % copy entity character *% 

Ii,v9a smbref«*smecj 

kv9i> BETURNj 

livio (cic) : Scopy Input Character. The input character in SMCRES 
in copied into SMBREG.f 

l).vll % copy input character *% 

kvlla ambreg^-smcreg J 

Itvllb RETURN! 

Ii.vl2 (GO: «Get Character. The AB register contains a T-pointer, 
The character pointed to by the T-pointer is copied into SMBBEG.* 

Ij.vl3 % get character that ab points to (into b) % 

jiivl3a istp sworKj 

itvl3b % store pointer in work area % 

ltvl3c smbreg*fechcl(,,«swork) J 

kvlM RETURNS 
Jivllj. (kset): ^This pop sets FLAG to true,% 
kvlS % set flag to true (Sli) % 

l^vlSa flag^-l; 
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livlSb RETURN; 

hvl6 (fps): $Go to PreviouB State. A branch to the previous 
state definition takes place, after the overlay in which the state 
was definied ia brought into core. The define state pop at that 
location is executed again. % 

livl? % go to previous state % 

ltvl7a ,XH«-state; 

livl7b IF NOT ,NEG state DO-SIHGLE GOTO S0r,XR7j 

llvlTc .XR«-,XR"1; 

kvl7d ovlgo(.XR); 

livlS (raks): %HarK Stack, The mark for the general stack (RTNOEL) 
is pushed onto the stack, followed by a zero (for the RETURN 
location) , RTNCEL is THEN set to point to the current top of the 
stack (the future RETURN location). This pop is executed before a 
subroutine call, and before loading arguments, % 

kvl9 % aark stack for sub CALL *% 

kvl9a push{,rtncel) 1 

kvl9b push(,0); 

kvl9c rtncel«-stack; 

ltvl9d RETURN END. 

Ii.v20 (clr)j fClear a state machine register^ 

kv20sL /■regary/'.XR;7<-regcv/'smareg; j 

iiv20b RETURN; 

li,v2l (atg): %Set abort tareet. This does not change the current 
state, but does set a "pseudo-state" as an abort location, % 

li.v2la abtgt ♦• oviadr(S0)5 

liv21b GOTO zap; %aet abort targets 

kv22 %END of anypop% 

5 %stacks, registers, strings, buffers^ 

Sa ^literal register^ 
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5al (getlit) PROCEDURE j 
Sala litrf *■ 0; 
SaXb litlc «" Sstnxn} 
Sale litlci <" «stnlj 
Said stnl ♦• -Ij 
Sale RETURN END. 

5b %stacks% 

Sc fwork with a-strings% 

Sa %inove buffers* 

Se ^messages, errors, and aborts^ 

5el (dismes) %Tliis routine is called to display a message on the 
screen. It blanks out the text portion of the screen and puts the 
message across the center. The address of an A-string is usually 
provided in the A. The B contains an integer which deterBines the 
action taken: 

Sela A 2 in the B causes the message to be displayed for 1 
second, THEN the display is restored and the routine RETURNS. 

Selb If the B contains a 1, the message will be displayed, and 
the routine will RETURN (with the message still on the screen), 

Selc A zero in the B will remove any message on the screen and 
restore the display. An A-string need not be given in the A in 
this case. This is done by simply calling RESDPY.% 

5e2 PR0CEDURE{disml,dism2) J 

Se2a IF todas THEN BEGIN 

5e2al crlfOs IF disi2 THEN itypeas dismlj RETURN END; 
Se2b IF NOT .NEG tdisbu THEN BEGIN 

Se2bl disraS «• cortb/"77i EXECUTE disbuf END 
Se2c ELSE dismS <• Oj 
5e2d IF dism2 THEN BEGIN 

Se2dl clrdpy(0)i 
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5e2(32 <Sisffl3 ♦- asrbuf (disml.cdlit) - cdlit; 

5e2a3 aiibufraisffli^; «• caiit .v lsh «iii(if > .gt 23 thin 2k 

Se2d3a ELSE <llisffl3+l,0) j 
Se2dli IF disra2 s 2 THEN BEGIN 

5e2dlia BRS S81(1000)| resdpyOEND END 
5e2e ELSE resdpyO; 
Se2f IF dismS THEN BEGIN 

5e2fl ovldn(,,disinS)s EXECUTE notftg ENDj 
5e2g RETURN END. 

5e3 (typeas) POP X7I1B PROCEDURE; 

5e3a %Type a-string on ttyf 

5e3b %address of word containing address of a-string in address 
field of instruction^ 

5e3c .BR«.$l//'SO/;+l; ?5a-string address in x, length in B% 

Se3d BRS S3ii(.XR+2,,l); 

Se3e RETURN END. 

5ek (crlf) PROOlDUREj %toda8« 

Sella TODCO 155BJ TODOO lS2Bj TODCO lk6B} 
Sekb carpos*-Oj 
Seiic RETURN END. 

5f %gets from ring--fechc fronj sdb% 

5fl (getssf) % return the successor and sub-statement psids of 
the ring element of the psid passed in tthe A% 

5f2 PROCEDURE; 

5f2a lodrsvl.AR); ^load ring block and return address of ring 
element in the X% 

5f2b RETURN ( «1/".XH;) %second word in ring element* ENDt 
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Si ^random files% 

5gl flod-sto-feh sdb, rsv, v<3b, and qt»% 

SeXa (storsv) PROCEDURE j ^move bacK to stranp when cac uses bit 
table% 

Sflal lodrsvt.AR) j^Jload ring bXock and return address of 
ring element in the x% 

Sgla2 strsvl «• .XRj 

5gla3 strsv2 «• .ARj 

SglaJi rrfbs/'Crsvst/'strsva;);; «■ Oj 

SglaS RETURN(strsv2,, strsvl) END. 

5flb (stovdb) PROC(,stvdbl) J % psid in a, pvdb in b % 
Sglbl lodrsv(.AR); %load ring blocKX 
Sglb2 $3[,XRj*-{$3{.m} .A 77700O0OB) .V stvdblj 
5glb3 RETURN END, 

Sglc (lodob) PSOCj 

Sglcl declare quhmax«50| 
5glc2 IF qbst s THEN BEQIN 

5glc2a Qbst^-newrfbO J 

Sglc2b lodrlb(.AR,Ii); 

Sglc2c ,XR*'rfbs/'qbsti; 

Sglc2d Sllb/',XR;,Sl/".XR/«"quhffiax+8 END 
Sglc3 ELSE IF rfbs/qbst; < THEN lodrf biqbst.li) j 
5^lci^ RETURN (,,rfbs/"qbst; + lOB) end. 

Sh ^overlays* 

5hl ^overlay pops— arguments and calls% 
5h2 iSovelay PROCEDURES^ 
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Sh2a (ovia) PROCEDURE (ovld2,,ovl«l) J % pos,,new ovl NOTa% 

Sh2al XXA; XMA cortb/.XR;j % old NOT* in A, new in core % 

5h2a2 ,XR «- .AB; 

Sh2a3 ovrltr.XRi *■ ovrltf.XB; .A 37777777B; % mark oia 
overlay out % 

5h2alj. .AR *■ ovrlt/ovldi; ,v liOOOOOOOBj % mark new overlay 
in % 

5h2aS XMA ovrltf.XRij ovldS ^ .AR} %PKT number^ 

5h2a6 .XH «• ovl<S2»6j ^number of bits to shift* ovld2 «• 0| 

Sh2a7 .AR «• LCy $6/",XB; {rlr2,rlrl) ,A 77777700B ,V ovl(33l 
^shift and or new overlay (PMT) number into relabelling* 

Sli2a6 .AR ♦• RCY $6[,xnj{)i %shift relabelling registers back 
to normal position* 

5h2a9 IF .AR NOT= rlrS DO-SINGLE BUMP ovld2; ^relabelling 
changed* XAB; 

5n2alO IF .AR NOTa rlrl DO-SINGLE BUMP ovld2s *relabelling 
changed* 

Sh2all rlrl *• .ABj rlr2 <■ ,BBj *set up new 
relabelling*RETURN(ovld2,,ovldl) END. 

Sh2b (ovldn) PROCEDURE; * overlay number in X * 
5h2bl RETURJsrovldCovltbr.XR; .A 7,..XR)) END. 

Si *intr routines* 

Sil (rubout) *fhis is the routine for handling interrupt 1, rubout 
It saves all of the registers, checks to see IF this is the second 
consecutive rubout, and terminates IF it is, clears all of the 
input and output buffers, and THEN dispatches control to the 
proper place, depENDing on what todas is doing at the particular 
time. Be careful, insofar as all action on rubouts is not taken 
here, butt rather in odd places throughout the system, eg 

inptc 
* 

5i2 PROCEDURE; 

5i2a ruboul «• .ARi rubou2 ♦• .BKj rubou3 ♦• .XRj *stve the 
registers* 
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Si2b clrbuf {1) |%clear input, ana output buffers^ 

Si2c IF inptrf THEN intr5() J%terminate IF second consecutive 
rub out% 

Si2a ,AB <- BBS S78(intnsk) J Sre-arm interrut3ts% 

5i2e IF outffg DO-SINGLE intrlOOj %re-initialise IF file being 
outputiS 

Si2£ IF opnff THEN BEGIN ^file open in progress^ 

5i2fl opnfg ♦• 0} GOTO gps ENDj 

5i2g IF rubabt DO-SINGLE GOTO gpsj 

Si2h /■inptbi;<«1000l37Bj BUMP inptbij%pass rubout to input 
routine^ 

Si2i IF inptfg THEM %input in progress.. CALL interrupt 7 to 
simulate* intr7(); 

Si23 LOAD (/"rubout/, rubou2,rubou3) j 

Si2K XMA ruboulj 

Si21 GOTO fruboui; 

5i2m END. 

5i3 (clrbuf) *clear all of the todas input and output buffers 

the value in the a causes the output buffer to be cleared if is 
non-zero • nothing is RETURNed% 

5±k PROCEDURE; 

Silia IF .AR THEN BRS $29{,,-l)i % Clear output bufferJE 

5ili.b BBS fll{,,-l); *clear tty buffer% 

5±kc buffet ♦■ Oj 56clear the todas bufferf 

5±k& inptbi,inptbo ♦- Sinptbf j%clear nls buffer* 

Sike RETURN END. 

55 %na!nes and pointers^ 

SR %basic pops and anypop% 

51 ^PROCEDOREs for use by CDSPLY and VCTEDT% 
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511 fclear and restore the display* 

512 fget and put bits in the dlrt% 
512a (gdllcl) PROCEDOREj 

5l2al .A8 *- $Qt,XR} ,A 177BJ 
5l2a2 RETURN END. 

512b (gdlsch) PROCEDURE; 

S12bl .AR ♦• SI/.XR; ,A 3777BJ 
512b2 RETURN END. 

513 %%&ba% 

511i (cdflp) PROC; 
511).a .AR4"Cdclinj 
511lb IF ,AR > THEN ,AR>.AR-lj 
Sllic .XR^-Sdlrt+LSH $2(,0)j 

Slid .BR<-(S3f.XR; .A 377778)+ RSH fill ($3r.XR; ) i 
Sllie RETURN(f2r.XR;,.BR) END. 



6 finish 
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SINPFBK, 12/0S/69 0952:11 wSD | INPUT FEEDBACK .SCRbIj ,PL0»1j ,MCHs7SJ 

,RTJ = 0J .DSN = l; .LSPsO| .MINs70| .INSs3; [<>fQU'^Ji 

Description of the INPFeK overlay 

The INPFBK overlay is one core page of MOL PROCEDUHEs that are used Dy 
other overlays that DO user terminal input and. oii3play output. The 
display buffer page is always relapeied in when INPFBK is in, since many 
display feebacK routines are in IwPFBKt Also, taoles in the dislay 
Duffer page are used to FHOCess bug marks, 

The tables for decoding the binary hamaset strokes are also in INPFBK. 
The INPFBK page is read-only and shared. 






.,HED3"INPFBK, xnpfDK overlay % 

STACK stackp, rbrr, rsRip, 161B; 

POP 

sbc s io?B, 
las s lliB, 

abort s 136B* 

sov s 137B, 

typeas = 172B, 

echo = HUB, 

err = 17S6* 

arjy = 177B| 
DECLARE originri77?7fci;; 
DECLARE inpKCin « ( 

35660S36B,220301B, 1^211028, 

621303B,102210ii.6, 12225056, 

l423106B,1623SO7B,202iai0B, 

222]iSllB,1002S112»,2625S13B, 

3226llitB,2tt.26SlSB,3627116B, 

17ii27S17B,li030120E,ii230521B, 

kii31122B,k631323e,5Q3212itB, 

5232525B, 5^331266, 5633527B, 

603lil30B,623iiS31tt,723Sl32B, 

166160l4o,i72170l6B,17615033B, 

27236037ES,3326iili00ii) ; 
DECLABE inpKi^t. * (0, 

1000101ti,1000102H,1000103B, 

100010JiB,100010SB, 4000000b, 

1000107B,lQ0011Db,1000111i5, 

1000112B, 1000113b, lOOOllliB, 

lQ00115B,1000xi6e, 10001173, 

1000120B,100012i:B,1000122ti, 

1000123B,1000l2ita,1000125B, 

1000126B,1000127B,100Q130B, 

1000131B,1000132ti,1000000B, 

100000QB,1000000fa,100B, 

lOOOOOOS) J 
%input characters^ 

(readbm) %Th±s PEOCaDURE RETURNS in tne A and B tiie mouse 

coordinates from tne last command accept character or pointer. In 

the case of a bug mark or Ca Key, the 2k bit coordinates are RSTURNed 
^-..^in the B, with a -1 in the A. In the case of a pointer, the 
(•^jT- pointe x is RETUKNed in the a ana B.% 

PROCEDUREJ (^ 

KETURw (inptpr,inptmr) KsiD, 
(inptO) %This routine returns a character from the Keyboard, 
handset, or mouse. If no characters are In the system's input 
Puffer, the PBOCEDURE (Jismisses (the main fork) on the highest 
priority queue until there is a character waiting. This is done with 
BBS's -10 . and 72 which are EXEC only. The format of the character 
RETUBNed is the same as froa the system. The oXo- ck readin g is saved 
in INPTCL, the raouse coordinates are saved in liNPTGM, a'^d the 
character is mTUMea in the a.% y^ 

PROCEDURE; ^^i^^. 






%h±gk priority- lowest level input routine% 
(inptoi) ! 

wsi ttynoj 

IF ,AU OB lOCOOOB liO-SIKGLE UOTO xAPtOw; %no character reaci% 

J. ; : I wl, ." T . (, • , 

i:!.:nptj.'W/ : 

BBS (F-10(,,ttyno) ; 

B5S ¥72 i); %wait for workstation input% 
GOTO inptOl END. 
(inptc) %INPTC is trie isinfle cnaracter input routine. It RETURNS 
characters froK tiie input devices in ttie A, in the following forroat: 
)WA com.mand accept button going down is a -1, coming up is a -2, and 
\^-^ all other characters are in ASCII. This routine takes care of tne 



V 
Ci) way: 



inary hanajset, iSutton strokes or special handset chords are 



^w^^iiOCessed, but INPTC does not RETURN until a real character for the 
i main part of MLS is read. INPTC functions approximately in this 



First a character is obtained. 

^^ If tnere is a character in tne input buffer, it is taken, 

(v)rotherwise, IF Fassl is running, TKEK the routine dismisses 

itself (using BBS's -10 and 72), after setting a flag for the 

input fork to create pseudo-interrupt 207, 

Or IF the input forK is active, INPTC waits OES kS) and goes 

bacK to its BEGI.Nninf. 

And finnally, it calls IHPTO to read the character IF all the 

above fail. 
Having obtained a character, it checks to see if it is a rubout 
and PROCesses it IF it is. Or IF it is a command accept code of 
some kind, a flag is set to inaicate that and the coordinates are 
saved. 

Then the character is PROCessea through a awitch, depENDing on the 
source of the character imouse. Keyboard, handset). % 
PBOCECUHEJ 

%RETUKHs a charact.eii_fromtnput deyiceM__ 
DECLAMli inptyj^(^EMlJIP5^ihiP^^<iJBP^^ 

Inptog j j.nptp ^,:CTptX|:ljmtcxjj__ 
DECLABii inpT<¥It» ^^„__^,,;— -- — \ 

(inptb,inpitsilnptc)?»inj3t^ ; 

EXTERNAL inptcx;^--- -^ 

(inptcx) J 

IF inptoi # inpttoo THEw BEGIi^ 

inptcl «- (iriptbo;? 

BUKP inptboi 

IF xnptDo >s inptbe THEN inptbo «■ #inptbf END 
ELSE IF paslfg THEN BEQIS 

BUMP inptfg; 

BUS .1^72 (,1002006,0) fsuspena until interrupts 

BSD 

SLSE IF inptfa THiiN BEGli^ %input forK is running, wait for it to 

stop% 



GOTO imrtcx end 

ELSE BE'aiM 

BUMP inptfg; 

IF ^oaas THEN TCI inptcl &l>S% 

inptcl ♦■ inptot ) i 

inpt-fpt «- iSNDj 
IF inptcl = 1000137B THEN BEUI?^ 
IF inptrf TH,&Bi aKGIN 

BUMP inptfg^ 

xntrSO AND 
ELSE BEQIN 

6lfM,p inptrf; 

IF tofigs THEI^ EXECUTE toaanc ELSE EXECUTE nnctrli 
IF paslfg DO-SINGLE ursnls { ) j 
IF todas liWm GOTO reset ELSE GOTO cmdrst 
END END 
F/LSE BEdlN 

IF (inptcl s lOOOliiiiB) OR (.AE = iiOOOOOlB) THEN BEGIN 
inptmr^-inptcKj 
inptpr*--! EWlii 
inptrf ♦• 0; IF todas TriEi.' BETUBn (inptcl) END; 
GOTO /inptyo/ ii<SH *i.a (inptcl, 0) .A 1)}]; 
(inptb) ; 
BUMP inpj 

IF incse « 3 TH&»nI GOTO inplts 
KLSE RETUBI^iLSH .$18(0) .A 177B); 
(inptK) : 
BUMP inp; 
IF incse - 3 THEN GOTO /"inpRalinLRSH ^16 (inpKlitHLSH 

«id(o) );,Q) };; 

ELSE RSTUft«((LBSH SOf .XRi (itipKChT (LSH il8(0) ,A 37B)i,, LSH 
l>3Cincse,0))) .A 1778); 
(inptpg ) ! 

RETURN (IF .tJH CB -1 THEN -1 
ELSiii " d,) f 
(inptx) : 

inbttn<-2; 

GOTO inptck; 
(inptp) ! 

inbttn*-!; 

% GOTO inptck; % 
(inptcK) { 

IF .BR CB -1 THEN BEGIN 
inp«-inwait<-0; 
incse<-incse .V inottn END 
ELSii BfiQIfi 

incse«-incse .A (inbttn ,x 3); 
IF HOT inp THEN BEGIN 

IF incse s O THKN BEGIN 

IF inwait THEM HiiTURK (LRSH $16(inpKcli)) 

ELSE IF in&ttn a 1 THEN liETURI^ (inpKch .A 177B) 

ELSK gi<;TURN(LRSH ^{^(inpkcll) .A 177B) END 



ELSE BUMP inwait ma end; 
GOTO inptcxi 
(Inpca) : 

inptcl «- cortbij; 
inptc2 «- cortt>6j 

inptc3 «■ s^oj 

.AH «- -1; 

iany txtj 

ovlani ,, inptcl) i 

ovldn{,,inptc2) j 

BU«P ovrelf J 

.EXECuTi inpfbki 

*Ci *- tnptc3l 

GOTO inptcx; 
(inplts) s 

inptc2 ♦■ LSH #16(0); 

lnptc3 ♦• S0| 

inptcl ♦• cortt)6i 

EXECUTE prraspc; 

setit {inptc2) ; 

ovian{,, inptcl) i 

fiUnF ovrelf; 

niXiiiCUTE inpftok; 

■$o *■' xn,ptc3; 

GOTO inptcx END. 
(inptffl) %Tiiis is the main program's input routine. It is one 
logical level higner than IKPTC in that it PROCesses pointers and 
turns commana accept Duttons up-down into command accept characters 
(litlib), 'Xhe pointer names are read into an A-atring named INPPR, 
and LKFTR is called to oPtain a T-pointer. % 
PROCEDURE; 

%main programs input routined 
(inptnl) s 

IF todas 'rHjr;;.N HKTliRfi(tinptc() ) J 

inptml <- inptc ( ) ; 
(inptmx) s 
IF hZQ inptnl THEN BEGIN 

IF .AR = -1 THEH BEGIN 

inppr <- 2; 

inpprl «• -1; 

inppra ♦• o; 

inptffll *• inptc {) ; 

WHILE inptwl # -2 DO BEGIN 

IF NEG inptwl THEI^ i abort $!>} 

apcnr (inptml,, sinppr) ; 

inptffli «■ inptc EMDj 
IF NEG inpprl THEN RETURii (iascca) 
iicptr(inppr2) ; 
iaPort $b>; 
inptmr ♦• .B,H| ' 
inptpr <- .Art; 
inptml *• iascca END 
ELSE IF .AE s -2 THEN GOTO inptml 



* 



KLSB Terror (? jbiNDi 

RETURN (inptml) mu, 
(iKptr) %LKPTR taKes a three cnaracter pointer name In the A and 
RETUPNs the T-pointer for that pointer in the A and B. IT skips IF 
that pointer exists, aoes not sKiD IF it fails to find the pointer in 
the taDle.% 
PROCEDUBE(lKptrl) J %3 Character name in .AR% 

lKptr2 *■ -31 KrtlLE {lKptr2>lKptr2+3) <» ptrtbl DO IF ptrtPflKptra; 

a IKptrl TH2N cECilf^ 

SKIP RETUSM (ptrtPfiKptra+i/, ptrtDr.x«+i;) mmt 

RETURM 7<ino sKip% 
END. 
%toaas kludge for opening and loading £iles% 
(tdioKci)PBuCEjJUBE; %todas io kludge* 

%the following is a Kludge for todas...very very temporary^ 
EXTERNAL outcKp,outf il,lodcicp,locif ill 
(OUtcKp) J 

SXEGUTE rfDp2; 
EXECUTE ioctl; 
frecor { ) ; 
opnckpO J 

copf 11 (rf f n,cKptfn) i 
BRS »20(cKptfn) if Close file% 
ckptfn <• 0; 
GOTO gps; 
(outfil) : 

BXmUTE rfDp2j 
EXECUTE iOCtll 

frecor I) j 

sine rep; *■ input c ( ) j 

IF fninl > -1 THiiW BEGIN % type file name and look for c&% 

itypeav? iifninxni 

IF sKcreg # iascca DO-SIi'iGiE aOTO outfll; 

curfn «- opnfil(l,7200000OB,Sfnaxn) 

END ELSE BEGIW 

(outfll) : 

curfn «- opnfil(l,?2000000B,0); 

cpysr (^stnxn, ,Sfnmxn) Etid; 
of date { ) ; 

iany mka; ilas ^jipl; isov txtedtj isbc setrot; 
EXECUTE ioctl; 
frecor { ) ; 

copfil Irffn, curfn) ; 
BRS #20 (curfn); 
curfn ♦• 0; 
GOTO IPS.; 

(lOQCkp) ! 

EXECUTE rfppai 
iXECUTE ioctl; 
f rcrf f ( ) .; 
opncKp ( ) ; 
rahar(cKPtfn) ; 



copfil(CKptfn,rfi'n) ; 
am #20{cKptfn)| 
cKptfn ♦■ Oj 
fnrootO; 
GOTO gps; 
(locifil) J 

EXECUTE rfbp2; 
EXECUTE iOC^lJ 

savrff () J 
ircrff ; 

cur£n «- opniil(0,72000000ij,0) J 
cpysr (tstnxn, ^istfnmxn) ; 
BRS i>20{Ti£n) i 
rfin ♦• 0,; 
rdhar (curfn) ; 

GO'lO gpS 

END. i^kc^^^ , 

%to<5as i/o routines^ %toaas% y -\~^^h<^J'^ 

(lnpCUC)pKOCEDUR;E| /^t 

%input a cnaracter and translate it to upper case (ip necessary^ 

IF inpUtcO IN {100B,132S; THEN buff *■ .AR - liOBj 

ESTUHN JiND, 
(xnputOPKOCEDuBEj 

%reaa one character from tty or Duffer into laatcnr% 

fretrun chr in a'^ 

■DUff«-100KC() I PUfffI <- .BRJ DUffCt«-+-lJ KEl'aRNiOUff) 
ENy • 
(100kC)PiiOCF.DUHiI; 

ilooK at next haracter in input Duf or tty% 

f RET URN in a% 

%RETORMs a flag in to register: l»cnr literal, 0=chr normal, -isciir 

control'* 

IF buffet THEN RETURN (buff rbuffct;,bufffg/'buffct;) J 

tinptcOi BUHP buffet; buff /"buffcty«-.AB; 

bufffg/".XRy«-.dRj 
BETURM t.m, 
(todco)POP 173B PKOCEDURE; 
%output a Character to tty% 
Dopret ♦" SO; 
IF putchrir»oy,carpos,0) = -1 THEN % carraiste RETURN time % crlf() 

ELSE BEaiN 

IF carpos+.AR > prcolx THEN crlfd ELSii 

carpos^.AB 
ENDJ 

BRB popret EHD, 
(putchr)PF0CEDUft]i(putchl,putcii2,putcii3) .; 

%DUt a cnaracter onto tty or a-string IF .XB # 0% 
IF .AR = -Sasctab THEN BEGIN % tab in nere % 

IF gettac(putcn2+l) > prcolx THEK keturn (-1) ;Stab wont fit on 

line% 

putcni«-putcn2«-.AK-putch2; %nui6ber of spaces to esnit^ 

(pttabl) : 

IF NOT putcn3 THEN TOO ELSE 



? 



apchr {0,,putch3) ; 
putcni ♦•+-1; 

IF putcni DO-SINGLE GOTO pttabl; 

HI.TUH!-:(putcn2) 
END J 

IF .AR = sasccr 'jCHKN return (-l)i %inaicate crlf% 
IF prcapf THEN BEGIH % all upoer case, siasn before caps% 

IF putcni BQT la ikOB/J2Bj DO-SIWGLi; GOTO putClCJ 

Xi' NOT putcll3 XHE-i TOO '/ ELSE 

apchr ( '/,,putcn3) } 

,AH «• putchli GOTO putcr2; 

(putclc)! IF .AK NOT lU (100B,132Bi DO-SINGLE GOTO pUtCSCJ 

,A.R «- .AR - kOB; 

GOTO putcrl aiNDl 
(putcsc): IF putcni > 132B Ttibh BBQlH 

IF ftOT putcn3 THEN TOO '^ ELSjS 

apchr ( '&,,putcti3) ; 

.AH ♦• pUtcril-10001 GrOTO putcr2 END; 
(DUtcrl) ! 

,b'H ♦• .AR; 

IF hOl putcn3 THB:i-i BEGIK putch3 ♦■ .BR; TOO putcn3 END ILSi 

apchr ( .pK, ,putcri3) I SfcTUHii (1) j 
(outcr2) ! 

.BK ♦■ .Aii| 

IF ivOT putcn3 THEN iJECilN putC{l3 ♦" .BRj TOO putch3 EHD ELSE 

apchr ( .BR,,putcn3) ; MIliRh (2) 
END. 
(answer) %this ?hgceijuhE accepts a yes or no answer from the 
KeyPoard, ana hetukj^s wwith a in tne a register IF the answer was 
negative, and a 1 IF it was positive^ ^ 

PHOGEBURE; cJ^'^'^ PuC 

( an s s t r ) ; ^ -i-isiovr- 

CASE inptmO OF 

B ^asccas GOTO anspos; 
a *Yi BEGUs (anspos) I 

jecho %"Yes."; RETURN(l) END; 
s *iii BEGIN 

lectio ■»"jNO."j WElumiO) KSD; 
"^ s ifeasccd: GOTO g,ps 
^ ENDCASK BEGIN 
itoPco '?.; 

itOQCO Oj 

GOTO ansstr 
ENP 
END. 
(ralit) PHOGEBURE (rPlit2,rcilitl) ; 

%reap a literal from the KeyPoara, aoing all of the control 
-things, plus breaking' on any control character identifies by the 

jf,^-:::i.^*'*iist m rdiiti % 

fRETURfi IF error (Puffer overflow), 1 IF oK% 

IF .AP. THEN BEGl^i "AoK .. a-strlng nere% 
(ralitl)! 

inputcOj IF NOT NEG Dufffg DO-SINGLE GOTO ixtchr; %not a 



control criaracter% 
CASE ,kH OF 

s Sasccas goto gpsj 

= iasc'Dc: BKQIN 

bkacnr(rcllit2) J GOTO rdlitl El^Dj 
= sasc&wj BfitilN 

If idchr (rallt2,ili".ABi) = o THEN %space oast blanks* 

hHILfc tisl/'ralit2j > -1) AND (MOT bKachr(.XH)) DO NUlLj 

WHILE bkaciir(rdlit2) ItQ NULL; 

GOTO raiitl E^d; 
= tascbst: BEGIN Sl/"rcilit2i«— 1| crlfO; GOTO rdlitl END; 
= l-asccat: kETURN{1) % centeraotf 

ENDCASE S6G1N 

(litcnr) : 

IF ralitl kUIi crsrpos(,bu£f,.Aii) THEN RETURN (2) | 
(rdentc) : apchr (buf f ,,rcillt2) ; 

If iifraiitsi 3 to/'.XB; then R£TURN(0); 

GOTO rdlitl £ND 
END} rerror { ) i,rlD, 
[restor)PHOOEi)UR,E{restoX) ; 

%put character xn a oack i.jto the input buffer'^ 
%GALL Terror IF ouff ovrflw% 
IF touffsz. <s ouffct DO-SINQLE rerror ( ) .; 
BUfiF Duffcti Dufi7Diiffct/«'restol; 
OU£££g I ,KRJ *■ ,bU'f 
jiETURI^ END, 
[tint)tc)PiiOCfiDIlK£,i 

tsTftis is the main cinaracter input routine. 

It does all of the character translation, KETUH:Ning a inthe IF 
the Character was a literal, and a -1 IF it was a control 
character. The cnaracter is HETUBi-'^ed in the &% 
%tocias control cnaracter defiitions% 
DECLARE todbc s isoB, 'Icontrol h% 

todbw » 167B, ^control wi 

toclbst * 160B, ^control q% 

tod If 5 132 jj, %line feed% 

tortca B liiii-B, ^control a% 

todcdt s lii2B, %cotrol b% 

todcd s 171B, ^control x% 

todshc a '/, 

toalit - ' 1 1 % exciasnation points 
tlnptl*-Oj%no special character'* 
(tinst) : 

IF NOT tinpt2 THEN inptc ( ) ELSE BEGIN .BR«-Oj tinpt2«'.8R END; 
tlnpt3*-»AKj; 

ffirst checK to see IF lower case* 
IF .AR IN (100B,132B; DO-SINGLE 

GOTO tintrl; 

%now see IF it is a special characters 

(inpnlc) t 

IF .Ak isOT IN {k03,72Bj DO-siNaiE aoTO tincoHifoy Here, upper 

case"^ 



IF prcapf THEN tinpt3 ♦•♦i^OBs %really lower casef 

GOTO tintrl; 
(tinconj : 

IF .AR NOT > 132B DO-SISGLI 0010 tinspcj %by here, conrol 
Character*-* 

tinptl <- ,Bk *• -l]%maric as control character* 

CASK ,AR OF 

B t OS DC I BiiGIM 

(tinosp)j .BR «■ 'Tj tinpt3 «- aasc'oc; GOTO tinecl 

a tOCilfS 'B&Qlh 

(tlnlf): IF echofg # 3 TA'&H BEGIH TOO ^sasccr^ carpos*-0 
ENDj HETUHft' (0,0) ^linefeed becoiffles spacel 

- todca: B^iaiN 

(tinea): KMTUftw (,-1) 

EMI),; 
s toQcd: BEGIN 

(tinea): ,AR <- fasccci; GOTO tinea 

ENDl 
B toabws 8£QIN 

(tiriDsw): .BR 4- '\j aOTO tinecl 

ENDi 
= todttst; uaOlH 

(tin'ost): .BS «- •♦■; GOTO tinecl 

END J 
a toacdts BEGIN 

(tincat) : tAB *■ Sasccdtj GOTO tinea 

ElNDCASE BEGIN 

tinptl *■ .BK «• 0; fmarK as not control character% 

GOTO tinecn 

(tinspc) 5 

CASE ,AS OF 

s tOQShc: BfiGIH 

(tinshc) : IF prcapf THEi^ 
BEGIN 

IF (tinpt3 *■ inptcO) IN (lt08,72B; THEN GOTO 

tintr2; 

IF .Afi IN (100B,132b; THEN BEGIN Slower case 

character^ 

tinpt3 *■ .AR-kOS; 

TOO tinpt3; GOTO tintr2 

EN 1)1 
%toy here, next character was not alpha% 
tinpt2 <- .A8j 
tinpt3 *• '/J 
GOTO tintrl 

a todlit; BfiGIN 

(tinlit)i %Dy here, literal* 
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tinptl *• 1} 

IF echofg <a 2 DQ-SIHQLE BUMP carpos| 

IF (tinpt3 <• inptcO) > 132B DO-SINGLE GOTO tlnechj 

IF .AS s 100b DO-SIis*GLii GOTO tinech; %center<3ot 

non-printing% 
GOfO txntrl 

ENDCASii GOTO tititrl; 
(tintr2) ; 

IF echofe <* 2 DO-SINaLfi ttUHF carpos; 
(tintri) ; 

IF -J <- eciiOfK DO-SINaLE aOTQ tintrj 

carpos<-carpoa+l| IF ,ar > prcolx THEN crlfOj 

itintr) : kkturn (tinpt3»t,inptl) ; 
itinecti) ! 

.BK *• txnpt3; 

(titiecl) ! 

IF ecnox'g # 3 THEN outptcUBH); 

hetuhn (tinpp3, tinptl) 

(txtlit)% This PBOCfiDUHE reacis a literal into the literal buffer 
(litlc Ixtlcl) for stateme usage. 

It cnecKs for overflow of the short literal Puffer, and gets tiie 

long one IF riecessary% 

p:rogeijuhEj 

IF litlc = THEN rerrorO; 

echolOj fturn off break on every characer% 

IF NOT rQlitU.itlc,0) THEN % short lit Puffer full* 
BEGIN gt2lit()i fset Dig liT, buffers 
IF i^iOT rdlit (litlc, 0) 00-SINGLE lerr S3 %'o±n Puffer full% 

ecno3i)i % turn PreaK Pack on% 

RETUKN 

END. 
(gt21it)%fets tfte second literal Puffer, checking for errors and 
copying string from name register across% 

PROCEDUkEJ 

IF litrf Du-SINGLE I err a6j %big lit already ^ot% 

EXECUTE prnspc; 

Etlit2Ujj % get Pig lit reg% 

coysr Ustnxn, ,litlc) J %copy old part accross% 

RETURN mi>. 
Stodas character and corasand echo control routines % %todas% 

(echo) %Th±B is tne pop which does all of the echoing for todas 

I^ expects the asaress of a cell containing the string to be 

echoea in phe aaaress field of the pop. 

It types characters from the string onto the tty until either 
(a) a period is encountered in the string 

(P) Lhe number of characters typed is equal to the value in the 
variable 'feeaPKl 

% 
POP 17ii,B FKOCEDUKJi; 

,%U*-f-^OJi %aaaress of string to Pe echoed^ 
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a break 



space, letter anct digits* 




ec:rtot3 ♦• feed/OKI 

LOOP umin 

echota «-2j 

(echol): ecnotl <- LSH Sd () .A TflB; %cnr to oe echoe(3% 

IF .AR c '. THEN BXITl 

IF SKIP iSKH ecnot3) THEN EXIT; %en(S of string or feeci-DK% 

TOO echotl; %type chrs% 

IF NOT BKONJiG echOt2 DQ-Sli'iGLE GOTO ecnoli 

%t>y nere..aone witft word.. get next in string% 

RETURN END. 
(ecnoOPHOCEDURKi 

fectio eacn ciiaracter with Itself j each character is 

character% 

BBS ^12(ecnofg«-0,,-l) i HETUSN Jil^i. 
(echol) PROCE,DURE; 

%echo all characters, break on all "out 

BRS ii2 (echofg*-!,,-!) J RETURN EInD, 
(ec)io3)PK0CEDUREi 

%no echo for any characterj oreaK on all characters^ 

BRS .B12iechofg«-3*,-l) .; kSTUHN Si-ID. 
(Dushsp) '^Push the a-b res^isters on the spec stack. % 
PROCEDURSipshspir; 

If SDSKt <= spsk DO-aiNGLE rerrorOj 
spsk<-*2j 
.XB «• spsKj 
.AR4*pshspl; 
iO/".XB;<-.AH| 
RITUftN ENli. 
%q-marics, arrow, ous sex^tinpr, cfl, 11% 

(qiaon) %Xnis displays a ? in tne command feeaoack line.% 
PROCSDUHEj 

OECLAfii. qmonl s " ? »; <f- -^" ^ 

Olpqis «- «lpqb ,V qraord; \ r o^^.-9f^ 

RETURN £.N.D. 1 ^ 

(qinoff) %This turns the ? off .% 
PBOCEDUREJ J 

dlcqb *■ cllpqp ,A 77600000BJ<K 

RETUBK EMD. 
(cflarw) SGiven a position integer in the b, this routine puts an up 
arrow under the string in that position of the command feedtoack 
line,% 
PEOCE0URF, (,cflptr)i 

DECLARE cflara s "T "l 

dipqa*^iciipqa .A 77770000B) .V ( (RSH il2 Icflttol/cflptri > ) #(dlxcfl 

,A 77B) + cacfln); 

dlpqb ♦• cflara; 

BETURiM 'm'O, 
(san) %Turn the command feedback arrow on.% 
PROCgDUH£; 

dlpqb 4- dlpgft .V cflara; % "t " % 



l^lir.XSi«-.BR; 
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EETUKN END. 
(saf) %Turn tne command feecibacK arrow off.% 
PBOCEDUKEj 

dlpQ'D ♦- dlpqb .A 177777BJ 

RETURN END. 
(fielul) "^I'tiis routine turns any oug raarKs o££,% 
PKOCEflUREj 

ailul «-+ -kOOOOBj 

cdulpt *•+ -Ij 

KETUBN iSMD. 
(uloff) %fhis PSQCEijURK removes all of the raarKs (currently circles) 
that oroviae feedback of bug selects on the screen. % 
PB0C1DUB.E; 

cdulpt ♦• iidlbuli 

diiui *- (diiui .A yrn'r^) .v iooooobji 

RETURN END. 

(sDffifbc) %Tne cftatacter tsiat tracKs the mouse position is set by this 

routine tSet bug KarK feedBack Cnaracter) , THe PROCEDUPE is called 

with tne cnaracter in the k,% 

PBOCEDimB (cdtemp); ^.^''"''^''^^ 

aixbug *■ (alXDUi .A 76007777b) .V LaH #12 (cdte!?!p,0) j , 
RETUEN EKD. ^— ^ T — ^ 

(cflatc) %This routine is called with an A-string address in the A, 
and an integer n in the B. It moves the string to the Nth position 
in the command feedback line.f» 
PEOCEDURE (cf If rra,cflptr) ; 

% takes the a string (actdr on a) and puts into the cfl in 

positionfo 

^specified hv the D% 

IF 9 <s cflDtr DO-SINGLB lerr 3*6^ 

cfltoo «■ fdlbcfl t cfltblfcfiptr; .A 7777B; 

%cfltoo is tne first unused location in the cfl% 

IF cdaofl TBEN bEaiJM 

/•cfltoo/ ♦'*2/cf If rm; .A 7760Q000B .V 77577B; 
cflbna^-cfltoo £,m 

ELSE cflbnd «- asrbuf (cf If riii, cfltoo); 

fcflbnd is trie last loc used% 

IF /"cflbndi ,A 1778 ■ 177B lAM rcflbnd/ «• fcflbnci; ,A 777771^008 

ELSE BKQIK 

BUrtP cflbndi 

/"cflbnd; *r Ynrrm mB j 

eUMP cflfrm; 

il/Scfltbl + cflptr; <• lOr.Xit; + LSH ■S12(IF cdabfl THEN 2 

ELSE fcflfrmy+a^O) ,V (cflbnd - cfltoo+l)j 

dllcfl ♦• dllcfl .A 37777B .V LSH Sllj. (cflbnd - Sdlocfl +3,0) j 

RETURN JbND. 
(Itlf) ^Several characters is the upper left corner of the screen 
provide feedback of the current viev specs. Calling this routine 
will display those characters in a large character size.% 
PROCEDURE; 

dixit «- dixit .A 77776000B ,V 1722BJ 

RETURH Is-ND, 
(Itsm) ^calling this routine will set the display of the view spec 
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feedbacK: to a small cnaracter ai.ze,% 
procedure; 

clferlv *- 377000008 i A^ 

dixit ♦• aiXlt ,A 7T776000B .V 1116Bi^^ 

BETUSrt END. /5i^^<y^ //^.-'^crSs?-^^ - 

^a-string stuff% / / (jVWei^ ^ ^^""^ 

(C3tsiia) %An A-string p<5ntainxng digits Q^i^^__SrO;mS£::^i^£::^^^_^^^^^^'^f\ 
C^tJ£4-ei?^^~by~caXl±tit-^^ in th^^ATrrne — 

conversion is done ^ trie bCscTc^ and all characters are assumed to 
&e dieits, ana are not checlcetlv" The A-string is not changed, antS the 
integer is RETURMea in the -A. If the first character is a minus 
sign, the num&er 'will be convertecS to a negative num&er correctly. % 
PROCEDURKlcvsnol) I %convert a-string to integer* 

cvsno3«'Cvsno2«'Cvsnok ♦• 0| 

IF iachr(cvsnol,o) = •- then bump cvsno2,cvsnolii . 

LOOP wmi^ ' ~~ ^'^ 

cvsno3 ♦• cvsno3*10 + Idchr (cv5nol,cvsno2)-'0j 

IF icvsno2 ♦• cvsno2 + 1) > flfcvsnoli DO-SINGIE EXIT 

RETUKNdF cvsnoii ThEH 
-cvsno3 ELSis. cvsno3) 

END, 
(asrnaiu) 'hkn A-string is displayed in the name area by calling 
ASBNAM with the aadresa of the A-string in tne A. Tne routine 
converts the case of letters in the string for the display, by moving 
the A-string cnaracter by character (and converting) to an A-strinf 
named 1nUKR«;g. Xt IniM calls ashbuf to move NUMR«a to the name 
register aispiay "ouffer.^ 
PROCEDURE lastnrol); 

BUMP astnmlj 

IF /astnrii; > dlbnmx THEN astnmli. ♦■ ai&nmx 

ELSE astnral; «■ ,AEj 

numreg «- 60j 

astnm2 «■ Oj 

nuargl «- -ij 

numreg ♦• 60,; 

WHILE a3tnn2 <■ astnrnlt. DO BEQIM 

astnm3 «• lachr (astnn-il -l,astnin2); 

BUf'jp astnn2j 

apchr( astnffi3# j'ii^numreg) ENDj 

asrbuf (ilnumreg,$dlDnam) \ 

,kR *■ ,AR - Sfilonan +3; 

ailnara ♦- LSH Blli(,0) .V «aipnaffl| 

HETUKii mil, 
(bKachr) %Qiven the address of an A-string in the A, this routine 
wil subtract one from tne length, and IHEN RETURN the last character 
of the string in the A.% 
PROCEDURE; %( a-string address in b,)% 

IF islf.AR/ > -1 THEN $l/',Xfii ^+ -1 ^ 

ELSE HETURl'KO) J J^ 

IF carpos > THEN carpos ♦■+-11 >carr^f1ge position for todas% 

RETURN adchr(.XR, iil[,'KRJ) ) END, 
(nuradpy) %This routine is used to convert a binary integer to an ASCII 



in. 



^( e-'<3-'^ '^ "^ g' ^^ 3 t^a 

number. The integer is provided ir/ tne a, and the routine EETURNs with 
the number in the A, in ASCII. Tt^-is PBOCEDURJ is used primarily for 

displaying tne view specs. Hence "all" is RETURNed IF a number less 
than zero or greater than 100 is given in the a. The ASCII number is 
left justifiea with blanks aaaea at the ENJ).% 
PROCEDURE tnusdl); 

IF (numdl < 0) UK (nuitsdl = 100) TttEN RETURN ( "ALL") ; 

numd3 ♦• Oj 

numdit «- 3* 

WHILE nuiaai+ HO BEaiM 
nuwdit «•+ -i; 
numdl ♦• nuMdl/10; 



^ 




.AR ♦■ .B'« + aOBi I / „^ /^^ ^ 



,kU «• R&H il» {,numd3) I 

nuBd3 *- .SH-; / u^^-^.^. - -.^ " y\ 

IF nuKdl - THil.(^i S£'rUEM(numd3) *.MD; X w^^i^.wk |o q ^s-^^. ) 
RETURN inuadi) END. / 

(xintr9) %Thi8 routine carries out all tffe details of finishing up when 
an INPUT QED BRANCH comraand is done, xft is activated by 
pseudo-interrupt 2oy, it stops the forK that listens for rubouts WHILE 
the input is done, stops the input forK and relabels out the PASSl code, 
closes the input file, removes the message, and recreates the" display. 
It does not RaTURN from the interrupt out goes to previous sta/e .^ 

PROCEDURS; '^ -^ y — ^ ~ 

.AR <- 4outfntj ^/ 

IF NSCi 0Utfp6 DO-SINULK mS »32{)} rc V- >o ^ 

BBS S32(sinpfpt); iLsetecV;>/:fc^ 

BRS $121(tpassl) J 

%delete wnen change data page% tcalc «• toutovj 

inpfbii. *■ inprll; 

inpfpS «■ inDrl2.; 

inpfbt «• Sdnptfl; 

paslf?:«-inptfe ♦• O; 

inptbo *■ inptbi; 

BRS »9(Sinpfpt .V 66000000B); 

BRS STSiintrasK) J 

BRS S20(0Utfn)i 

disnes (,0) j 
.AR «- -Ij 
iany txtj 

GOTO IPS Ki^D, 
(cptstr) %Ihe function of this routine is to copy a T-string to an 
A-string. The calling arguments are the address of a T-pointer in the A 
and another in the a, and an A-string address in the X. It copies the 
T-strin? determined by the two T-pointers into the A-string, after 
setting the A-string to null. The tvo T-pointers raust point to the sane 
statement, or RERROR is called. An external flag is associated with 
this routine, named CPTSRC. If it is true, the string is forced to 
upper case. The flag is always reset before the routine BETUHNs, Note: 
IF the T-pointers point to the same character, one character will be 
moved into the A-string, The end characters of the T-string are 
included in tne resultant A-string,';li 
PROCEDURE (cptsrl,cptsr 2, cptsr3) I 



IS 



%copy t-str to a-3tr% 

IF fcptsrli # fcptsra/ do-singlk ierr .$J; 

sworK «- /'cptsrlii 

BUMP cptsrii 

sworkl «■ /cptsrli,' 

BUMP cptsr2j 

$l/cptsr3i *• -1| 

%null strinf% 

cptsr2 «■ /cptsr2i+li 

• AH <- fechcl(l,,ssworK) ; 

BBM *2f .XKi J 

cptsrl ♦• .AH; 

WHILE i.AK # endcnr) A.MD {sworKl <= cptsr2) DQ 8IGIM 

IF Cptsrc THtiN BBaUiv 

IF cptsrl Ih (1008,132B; THE« cptsrl <■ ,A8-liOB 

ENDJ 
apchr (cptsrl,, cptsr3) ; 

,XH ♦• ^sworK; 

cptsrl «- .AR End J 

cptsrc ♦• 0| 

(chkfrz) %Triis routine calls RERROK IF any core 'dIocks are frozen. 
That is, tile rHZCPT Uroaen core page table) must contain -1 In all 
positions, % 
PROCEDUREj 

frzrfl«--li wHILi; (fr2rfl*-frzrfl+l) <* rficbx DO IF fricpt^frzrfli # 
-1 DO-SINGLE rerrorO; 
RBTURw iiNlJ. 
%pops% 

{lee) %Lo&d Entity Character. The entity character (SMEC) is set to 
tfte character in the adctress field of the pop,% 
POP 103B PROG J %loaa entity character % 
EAX t^O] (,,0); 
sr!!ec*-.XKj 
Bl;TUB^^ END. 

(les) %X.oa«3 Entity String, The entiy string (SMES) is set to the 
A-string acidress provided in the pop attdress field, % 
POP lOi^B PROG; % loau entity string % 

EAX [&0j (, ,0) ; 

smes*-'. Xti| 

ftETURN £HD. 
(gset) %Group SET, The current group is set to the group number 
given in the address of the pop. If the group has changed, the 
entity character and string are sat to the initial values for that 
group. The initial values are in lORPC ana IGKPS,% 
POP HOB PROG; %set group and entity % 

EAX [m] (,,0); 

IF ,XR a curgrp DO-SINGLi HETURNi 

IF .AR > fgroupx DQ-SINGLE rerror ( ) | 

smec+'igrpc/'.XRi; 

smes*-i|rps/".X'R/i 

curgrp*-.XH! 



ij 
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RETURN END, 
(ffilfl) %Move Literal to Feedback line, first position. This pop 
sets the feecKbacK line position counter (CFLPOS) to -1 an«3 T^HEN^ii^ 
executes ttie code for a MLF pop.% 
POP lllB PROG I 

%move literal to feedPack - first pos % 

(ffllf) %mvk Literal to FeectPacK line. This pop increments the 
feedtoacK line position counter, oy one and THEN moves the A-string, 




hose address is in the address field of the pop, to the feedback 
line toy calling CFLATC.f 
POP llllB pKOCi 

%move literal to feecSoack - next% 

BUMP Clpos E,ND. 
(mlfr) *Move Literal to FeedbacK line a.m Replace last. This pop is 
the sarae as MLF except that it does not increment the position 
counter before moving the string. % 
POP lli2B FUOCEiWRB; 

%move literal -over last% 

popret ♦■ .BPv <- ISO J 

,BR«-cflposj 

EAX /"soil 

BW popret (cf late (.x:R ,A 37777B)) END. 
(rep) fRB-Peat a case statement. The KBP pop removes the overlay 
address from t.hp ^,rcuiar case save _ arra,v^. resets the pointer (CASV) 
to the previous entry, and oranches to the savea location using 
routine OVLQO, The address of the pop contains an integer which 
indicates how many cases to back up over. A REP is the normal 
edition, which RBTURNs to the instruction following the last OSE pop, 
and does not change the case array pointer. A REP 1 backs up the 
pointer by one. The 'o±f. problem with the current case business is 
that the pointer is not moved back when a repeat is MOT done. Hence 
REP 1 or REP 2 will not RITUHN to the correct location IF someone 
branched out of an inner case.% 
POP 113B PROG; ^repeat in case statetnenf^ 

sn)creg*-smbregj 

.Xfi«-casv; 

IF [$QJ > THKN BEGIN 

casv*-(- ( ,Aft-casv) ) .a Sncasvlj 
.XR«-.Ak ENDi 

IF f^'OT iNIG casvbf'.XR; DO-SINGLE BHR casvbf.XK;; 

ovlgo(casvb/',XjK;) ft^iD. 
(dfs) %DeFine State, The overlay address is saved in STATE, and. 
the current group is set to the integer fiven in the address of the 
pop. A ZAP is THEN executed, % 
POP IkJj-B PftOCj % define a state % 

state«"abtgt*"OVj,aQr (;iiO) ; 

EAX [$0J (,,0) ; 

curgrp*-,XR; 

GOTO zap END, 
(eta) POP 111.7B PROCEDURE; 

popret *■ siO; %save return locji 

IF [^OJ THEN BUHP cptsrcj 
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BRH popret (cptstr (Ssptrl,-sspt.r2,isarxn) ) END. 
(anypop) POP I7?B PKOOj 

EXTERNAL creg, Dreg, sreg, sba, sbp, ta, mrf ,rarfr,mricl,i!irK, kin, 

Kct,pbrt,cse, spcb,spcr, spcrno,spcrp,spcrna, jr,rs,bKc,(3pn,spca, 

spcf ,spcn,cct, cct,zero,zap,2apsp,feesxtj 

popret «• .Aa; .AR«-*Oj XMA popretj 

GOTO /"feOii 

(creg): %appE«c tne character in C-BEG to string in A-reg, The 

Character in SrtCHiia is appJSNijea to the register whose nuaper is in 

SMAaEG.% 

regaar {smareg) ; 

BRR popret (apchrOmcreg) ) ; 
(Preg); % appKMD char in b to reg no. in a % 

regaPr (srnareg) j 

BRB popret (apchr(srapreg) ) i 
(sreg)! % appc-HD sar to reg no. in a % 

regadr (smareg) i 

BkU popret (apsrt'ttsarxn) ) I 
(sba): % set pug to arrow % 

BRB popret (sDiaf DC (rradcr) ) i 
(spp)! % set pug to plus % 

BUB popret (sPai'ac (Prmacr) ) } 
(ta)! '/^diaplay in text area% 

IF (WOT litrf) AND (stnxn <* atnlti) THEN gtslitOj 

IF (smbreg <= 132B) OR (.AH = 151B) OR {.AR = 1S5B) 
THEN apchr( SKI Preg,, litlc) ; 

IF NOT paslfg THE.^^ aplit(si!!Dreg)| 

BRH popreti 
(mrf ) ; % move register to feeaPack line % 
-^ BUMF cflposi 

(nrfr): % move register to feedoacK (sanie spot) % 

regaar (smareg) \ 

.BB+'Cf Ipos; 

BRR popret (c£latc(.XB .A 37777B))j n^ 

{rarkDs %MaRK feea&acK line for up arrow in first position. This 
calls CFLAR'W to dispay an up arrow under the first position of the 
feedPacK line,% 

BRR popret (cflarv (0,0) ) I 
(mrk) ! %MaiiK feedPacK line for up arrow. This pop has GFLARW 
disiay an up arrow under the NEXT position in the feedback line.® 

BRR popret(cflarw(0,cflpos+l) ) ; 
(kin) ! SINput a character. The routine IHPTM is called to read a 
character. The character is stored in SMCREO. QMOFF is also 
called, to make sure a "?" is not Peing displayed. % 

siicreg^-inptmO ; 

BRR popret{Qiiioff {) ) ; 
(kct): %Charcter Test. This compares the character in SUBREG with 
the input charcter in SFiCREG and sets FLAG IF they are equal, 
resets it IF not. The input character is forced to upper case 
before the compare. % 

.BS«-l; 

IF smcreg IN (100B,132S; do-singly .AR^-.AM-ltO; 
IF .AR # smPreg DO-SINGLfi .3R«-0j 
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flag IF the Input 
Otherwise it sets 

them in BUGREG,% 



the overlay aadress to toe 
is cfl^rciiiar). The flag 



vvi cD^e- CL 



Pcvu^tT 



^U- 



s> 



-7 



flag*-.BK; 

BRR popret; 
(pom): ^Process Bug HarK. This pop resets the 
Character (tn SMCRliG) is not a command accept. 
th.e flag, reads tne oug: coorainates ana stores 

flag«-0; 

IF sscree # iascca DO-SINQLE BHR popretj 

BUMP flag J 

readDTTiOj 

STP bugregj 

BBR popret; 
(cse): %CavSE statesent. This pop causes 
"pushea" onto the case save stack (which 
is set to false. % '' " N,'''" 

casv^-tcasv+l) .A Sncasviy--.^ 

csel«-,ARj 

casvofcseli^-oviaiar («»0) ,; 

flag «- Oi 

BBS ijopret END, 
(spcb)FriOC£DUKEj %SFeC a Bug mark. If BUGKEG does not already 
contain a T-polnter (a -1 in the first word) THilM either PBUQ or 
THEBUG in THtii is called to PHOCess the tougraark into a T-pointer. 
The x-ponter is pushed onto the spec stack. % 

LDP Dugrefu 

IF ,AH s -X THEN B£GIf« 

IF NOT catref THEN pbug < ) 
ELSE BEGIN 

txtloc «- ovladriSO); 

EXECUTE rftop2| 

EXECUTE GCisplyj 

EXECUTE disbuf; 

tre6ug(,bugrgl) ; 

pushspO; 

OVlfO (txtloc) END EHD{ [7 

BRR popret lpushsp{))j / 
(spcr): % SPeC3_jie^ist.ejU-,<;^his is % rather compilcated pop that 
converts anr;]^^^^_ref istei^ to a T-pointer or number for the spec 
stack. DepEinJIrig ofrTm±ch--register is indicated py SMARIG, 

(SfNO) It converts the string (a statement numher) to a PSID by 

calling FECHUX. 

(NUfii<) It converts the string to an integer py calling CVSTNO, 

and pushes iO, number) on the spek stack. 

Otherwise, IF tne first character of the string is a digit, it 

converts it as a statement number as above, or ELSE it treats 

it as a name and finds the corresponding PSID toy calling 

LKNAMH. % 

smteao «- aO| 

EXECUTE rfPp2; 

i&O ♦• smtempi 

IF sfflaree * istnon jjo-SINGLE GOTO spcrnoj 

IF .AR # inurarm :oo-sinGLE GOTO spcrnaj 

cvsno(-fnuKnxn) .; 

COPY (AB,A)J 
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IN {17B,31B; 



DO-SINGLi GOTO Spcrnl END; 



GOTO spcrpj 
(spcrno) : 
regaar ( ) j 

(spcrnl) : 
fechux(.X8) } 
iabort S2j 
(spcrp) : 

BRR popret (pusnapO ) ; 
(spcrna) : 
regaar {) ; 

IF tiOl NEC* «1/\XK/ THEN 
If LRSH v>16(.$2f,XS;) 
.AE ♦• 0; 
IF NEG slf.XR; DO-SINQLE GOTO spcrp; 

nasht .XR) 1 

lknamh( ) j 

labort S3| 

GOTO spcrpj 
(irs)! %Nove Register 
A-string inaicatea oy 

regadr (snareg) ; 

BHH popret tcpysri.XR, ,Ssarxrin J 
(fckc): ?^BacKspace Character. The A-«3tring inciicated by SMAREa is 
backea up one character via routine oKachr.f 

regadr(sfflaref ) j 

BUR popret (PKachr(.XR) ) I 
(dpn)s ^Display in Name area. 

name area,% 



to String 

SMAREG to 



area. 

SAK,% 



Tnis used CPYSB to move the 



The A-string indiicated by SMAREQ is 



displayed in tne 
regaar (smareg) ; 

BKB popret (asrnam(.XH) ) s ciia^Ws"^ 
(spcn)J %This gets the hash of the A-string indicated toy SMAREQ 
and puts (-l,liash) on the stacic.f 

regadr (sroareg) j 

BBH popret(pushsp(-l,hash(,XE) ) ) END. 
{cc%)P&OCl&Mmi ^Character Class test, Tftis pop 
character class testing for the CASE statement. 
includes both upper case and lower case letters. 

U) Letter -^ 

(5) Digit,..,i=-^^^^^' 

(6) Any -Character. % 
.BR «• li 

IF smarei! - 6 THEM NULL 
ELSE IF .AR « 5 THEM BEQll« 

(17b,3ib; 

BEGIN 
(ilOB,72B; 



does the 

The letter class 
The classes are: 



IF srabreg NOT IN 
ELSE IF .AR = k TiiEn 
IF smbreg NOT IN 
IF ,AR NOT IN 
ELSE rerror U j 
flag «■ .BRj 
BRR popret; 
{zero)s %ZEBO the spec 
the bottom of the spec 
spsK«-spsKl; 



DO-SINGLE .BB«-0 END 



THEN BEGIN 



(ioob,i32b; do-single .bh<-o end enb 



stacK. 
s taci^ • ^ 



This does sets the stack pointer to 
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.^^ 



SRR popret KNC 
(s5ap)PK0CEDURi!;i %Z,AP everything. Tills includes: 

Collapse the general stacK. 

Release tiie long literal register, IF it exists. 

Reset tne spec stack. 

Eelabel out tne two random file block cages (RFBPl and RFBP2). 

Call CHKFBZ, LTSM, RESDPY, and ULOFF, % 

stacKfrstackl; 
(zapsp): %"LkV the SPec stacK. Tnis is exactly the same as ZAP, 
except that the general stacK is not changed.^ 

spsK«-spsKl| 

relltt J 

satemp ♦■ SOi , 

EXECUTE nrfbp2i 

#0 ♦" gntenp; 

chKfrzi ) I 

IF todas DO-SlNtiLfi B|R popretj %toctas% 

brk popret (ltsm(resapy (uloff t ) ) ) ) J 
(feecilt)s %FiED IT specs, Tnis pop requires that PRMSPC be in, 
since it calls SETLT. However, it does not check. The characters 
in the A-string inCticatea by smaPEG are fed to SETLT one at a 
time.% 

regadr (smareg) ; 

fealt3 ♦" .XR; 

feait2 <- Sl(.Xi</j! 

fealtl*--!; WHILB {fectltl*-feGltl+l) <= fedlt2 DO BEGIN 
lcichr(fealt3,fea.lti) J 
setltO fiftDi 

BHR popret END, 
(tch) %Test Character. Sets SMBREQ to tne character looKine for, THEN 
goes to Kct,% 

POP lk6B PROCEDUHfcj 
EAX iml (,,0) J 

smtorcK *• .XRj 
GOTO KCt End. 
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INMOLB, 12/12/6? 0029l01i WHP | .CPB-Oj tPl SE(Pl) <$»?-•. J 

r«con";j %% 

TlTlBi M0L-9i^0s An Algol-liKe Machine oritnted itngUAge for the 8D3 91iO. 
ABSTRACT , 

This report ^escribei a programming language developed at Stanford 
Reiearch Inititute lor the Scientific Data Systeaa 91(,0 computer. 

The name mi is an acronym for "Machine-Oriented language". M0L»9liO 
if an Al50l,«like language with extensions to make it suitable for 
systems programming. The added syntax strongly reflects the internal 
design of the SDS 91^0, in accordance with the name MOI. 

The compiler is written using a meta-compiler system, TREI META. The 
formal specification of the language given in the report is actually 
the TRBS HETA program for the compiler. 
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IINPFBK, 10/31/69 17liO:lJi WSD J INPUT FEEDBACK .SCR«li .PLOsl| .MCHs75j 

•RTJsOj ,DSN»l; .XSPsOj .MiNsTOj ,INS*3j ["ayatrr"Ji 

Description of the INPFBK overlay 

The INPFBK overlay is one core page of MOL PROCEDURES that are used tiy 
other overlays that DO user terminal input and display output. The 
display buffer pa?e is always relabeled in when INPFBK is in, since many 
display feebacK routines are in INPFBK. Also, tables in the dislay 
buffer page are used to PROCess bug marks. 

The tables for decoding the binary handset strokes are also in INPFBK. 
The INPFBK page is read-only and shared. 



..HED««INPFBK, inpfbk overlay % 
DECLARE origin/"17777B;i 
DECLARE tnpkch = { 

3S660536B, 2205018,1^21X028, 

621S03B, 1022101^8, I22250SB, 

lJl.23106B,l623S07B,202iillOB, 

222I^511B,1002S112B,2625513B, 

322611kB,2ii.26Sl5B,3627116B, 

171l27S17B, I1O3OI2OB, 1^2305216, 

llii31122B,k63lS23B,503212liB, 

5232S2SB,51i33126B,S633527B, 

6031il30B,623li5318,7235132B, 

16616011iB,17217016B,176lSO33B, 

27236037B,33261^1iOOB) j 
DECLAEE inpklit * (0, 

lOOOlOlB, 10001028, 1000103B, 

1000101i.B,1000105B,liOOOOOOB, 

1000107B,1000110B,1000111B, 

1000112B,1000113B,1000111iB, 

1000115B, 100Q116B,1000117B, 

1000120B,1000121B,1000122B, 

1000123B,1000121iB,1000125B, 

1000126B,1000127B,1000130B, 

1000131B,1000132B,1000000B, 

1000000B,1000000B,100B, 

lOOOOOOB) J 

%input characters% 

(readbm) %'Shls procedure returns in the A and B the mouse 
coordinates from the last comaand accept character or pointer. In 
the case of a bug marJc or OA Key, the 2k hit coordinates are RETURNed 
in the B, with a -1 in the A. In the case of a pointer, the 
T-pointer is RETURNed in the A and B.% 
PROCEDURE^ 

RETURN (inptpr.inptnr) end. 
{inptO) %This routine RETURNS a character froi the keyboard, 
handset, or mouse. If no characters are in the system's input 
buffer, the PROCEDURE dismisses (the main fork) on the highest 
priority queue until there is a character waiting. This is done with 
BRS's -10 and 72 which are EXEC only. The format of the character 
RETURNed is the same as from the system. The clock reading is saved 
in INPTCL, the mouse coordinates are saved in INPTCM, and the 
character is RETURNed in the A.% 
PROCEDURE! 

fhigh priority- lowest level input routine^ 

(InptOl) I 

wsi ttyno; 

IF .AR CB lOOOOOB DO-SINOII GOTO inptOw; %no character read% 

inptOc ♦• .AR .A 77077777B; 

inptcl ♦• .XR; 

inptcm ♦• .BRj 

RETURN (inptOc) I 

(inptow) : 

BRS i-10(,,ttyno) J 



BBS S72{); %v&i.% for workstation input?? 
GOTO inptoi END. 
(inptc) %INPTC is the single character input routine. It RETURNS 
Characters from the input devices in the A, in the following format: 
A command accept button going down is a -1, cowing up is a -2, and 
all other characters are in ASCII. This routine takes care of the 
binary handset. Button strokes or special handset chords are 
PROCessed, but INPTC does not RETURN until a real character for the 
main part of NLS is read. INPTC functions approximately in this 
way: 

First a character is obtained. 

If there is a character in the input buffer, it is taken. 
Otherwise, IF Passl is running, THEN the routine dismisses 
itself (using BRS's -10 and 72), after setting a flag for the 
input fork to create pseudo-interrupt 207. 

Or IF the input fork is active, INPTC waits (BBS 1^5) and goes 
back to its BEQiNning. 

And finnally, it calls INPTO to read the character IF all the 
above fail. 
Having obtained a character, it checks to see IF it is a rubout 
and PROCesses it IF it is. Or IF it is a connand accept code of 
some kind, a flag is set to indicate that and the coordinates are 
saved. 

Then the character is PPOCessed through a switch, depEHDing on the 
source of the character (mouse, keyboard, handset).* 
PROCEDURE; 

^RETURNS a character from input devices* 
DECLARE inptyp/"?/' (inptb,inptb,inptk,inptcx, 
inptbg,inptp,inptx,inptcx) j 

DECLARE inpkSl^A/" 

(inptb,inplts,inptcx,inptcx,inpcd) j 
EXTERNAL inptcxj 
(inptcx) : 
IF inptbi # inptbo THEN BEGIN 

inptcl ♦■ rinptbo/j 

BUMP inptbo; 

IF inptbo >■ inptbe THEN inptbo *■ Sinptbf END 
ELSE IF paslfg THEN BEGIN 

BUMP inptfg; 

BRS *72(,100200B,0) ^suspend until interrupt* 

END 
ELSE IF inptfa THEN BEGIN %input fork is running, wait for it to 
stop* 

BRS $Jl5()j 

GOTO inptCX END 
ELSE BEGIN 

BUMP inptfg; 

IF todas THEN TCI inptcl ELSE 

inptcl «- inptOO; 

inptfg *• END; 

IF inptcl - 1000137B THEN BEGIN 
IF inptrf THEN BEGIN 
BUMP inptfg; 



intrSO END 
ELSE BEOIH 

BUMP Inptrf; 

IF todas THEN EXECUTE todmnc ELSE EXECUTE Binctrli 

IF paslfg DO-SINGLE ursnXs () J 

IF todas THEN GOTO reset ELSE OOTO cmdrst 

END END 
ELSE BEGIN 

IF inptcl a lOOOlliliB or .AR » liOOOOOiB THEN BEGIN 

inptmr^-inptcmj; 

inptpr«—l ENDi 
inptrf «- Oj IF todas THEN RETURN (Inptcl) END; 
GOTO finptypHRSH S18 (inptcl, 0) .A 7)]]; 
(inptb) : 

BUMP inpj 

IF incse a 3 THEN GOTO inplts 
ELSE RETURN (LSH S18(0) ,A 177B); 
(inptk) ; 
BUMP inp; 
IF incse ■ 3 THEN GOTO /•inpKsUr(LRSH $16 (inplclitf (LSH 

$18(0));, 0));; 

ELSE RETURN((LRSH SOf .XRi (inpKchf (LSH S18(0) .A 376)/,, LSH 

$3(incse,0))) .A 177B); 
(inptbg) : 

RETURNdF ,BR GB -1 THEN -1 
ELSE -2)1 
(inptx) ! 
inbttn*'2j 
GOTO inptcJcj 
(inptp) I 
inbttn*-lj 
% GOTO inptcK; % 
(inptek) i 

IF .BR CB -1 THEN BEGIN 
inp,inwait*-0; 
incse«-incse .V inbttn END 
ELSE BEGIN 

incse«-incse ,A (inbttn ,X 3); 
IF NOT inp THEN BEGIN 

IF incse » THEN BEGIN 

IF inwait THEN RETURN(LRSH $l6(inplcch) ) 
ELSE IF inbttn a i THEN RETURN(inpKch .A 177B) 
ELSE RETURN (LRSH $8(inpJcch) .A 177B) END 
ELSE BUMP inwait END END; 
inptcxi 



GOTO 
(inpcd) 

inptcl ♦• cortbTS/J 
inptc2 ♦• cortbr6;5 
inptc3 ♦■ $0j 
.AB *• -Ij 
lany txtj 
ovl(ln(,, inptcl) j 
ovldn(,,inptc2)} 



BUMP ovrelf J 
EXECUTE inpfbKj 
#0 «• inptc3j 
GOTO inptcxj 
(inplts) I 

inptcS *■ LSH $18(0); 
inptcj «■ $0; 
inptcl ♦• cortt {6Ji 
EXECUTE prmspcj 
setlt(inptc2) ; 
ovlcin(,, inptcl) { 
BUMP ovrelfj 
EXECUTE inpfbkj 
so «• inptc3# 
GOTO inptcx END, 
(inptK) %This is the main program's input routine. It is one 
logical level higher than INPTC in that it PROCesses pointers and 
turns command accept buttons up-down into command accept characters 
(llj-lib) , The pointer names are read into an A-string named INPPR, 
and LKPTK is called to obtain a T-pointer, % 
PROCEDURE; 

fmain programs input routine^ 
(inptml) I 

IF todas THEN RETURN (tinptci) ); 
inptml ♦• inptcO ; 
(inptmx) I 

IF .NEG inptml THEN BEGIN 
IF .AR = -1 THEN BEGIN 
inppr «• 2; 
inpprl ♦• -1; 
inppr2 <- 0; 
inptml «- inptcO; 
WHILE inptml # -2 DO BEGIN 

IF ,NEG inptml THEN iabort $SJ 
apchr (inptml, ,Sinppr) ; 
inptml •• inptcO END; 
IF .NEG inpprl THEN RETURN ($ascca) ; 
lKptr{inppr2) ; 
Ubort «5; 
inptrar ♦• .BRj 
inptpr *■ .AR; 
inptml «• Sascca END 
EISE IF .AR » -2 THEN GOTO inptml 
ELSE rerrorO END; 
RETURN (inptml) END. 
(Ikptr) %LKPTR takes a three character pointer name in the A and 
RETURNS the T-pointer for that pointer in the A and B, IT skips IF 
that pointer exists, does not skip IF it fails to find the pointer in 
the table. % 
PROCEDURE (ikptrl); %3 character name in .AR« 

FOR lkptr2 FROM INC 3 TO ptrtbl DO IF ptrtb/lkptr2; = ikptrl 
THEN BEGIN 

%skip RETURN% 



SKIP RETURN (ptrttirikptr2+lj , ptrtbr.XR+i;) ENDi 
RETURN «no sKip% 
END. 
%to<Sas Kludge for opening and lotdtng ftles% 
(tdlokd) PROCEDURE J %todas io kludge^ 

%%hQ following is a Kludge for todas,..very very temporary^ 
EXTERNAL outcKp,outf ll,lodcKp,lodfil; 
(outckp) t 

EXECUTE rfbp2; 
EXECUTE ioctl; 
frecor ( ) j 
opncKpO ; 

copfil{rffn,cKptfn) ; 
BBS S20{cKptfn) j?Sclose file55 
ckptfn *• 0; 
GOTO gps; 
(outfll)s 

EXECUTE rfbp2; 

EXECUTE ioctll 

frecor ( ) j 

LOAD (1,720000008) J 

IF fnml > -1 THEN BEGIN % type file name and look for ca?5 

typeas fniaxnj 

IF inputcO # Sascca DO-SINGLE GOTO outfll; 

curfn «- opnfii (1,720000008, Sfninxn) 
END ELSE BEGIN 

(outfll) s siscreg ♦• ,AR; %save off character% 

curfn «" opnfil(l,72000000B,o) ; 

cpysr(Sstnxn,,.«fnmxn) ENDi 
of date {) J 

lany mksi ilas aplj isov txtedt; isbc setrotj 
EXECUTE ioctl; 
frecorO; 

copf il (rffn, curfn) ; 
BBS S20 (curfn); 
curfn «• 0; 
GOTO fps; 
(lodckp) I 

EXECUTE rfbp2; 
EXECUTE ioctl; 
frcrff (); 
opnckpO; 
rdhdr (ckptfn) ; 
copfil(ckptfn,rffn) ; 
BRS $20 (ckptfn) J 
ckptfn <■ 0; 
fnrooK ) ; 
GOTO ips; 
(lodfil) i 

EXECUTE rfbp2; 
ioctl; 
savrff ; 
frcrff (); 



curfn «• opnfii (0, 72000000b, 0) J 

cpysr{$stnixn,,#fnmxn) j 

BRS S20(rffn); 

rffn ♦• Oi 

rdhdr (curfn) j 

GOTO SJps 
END. 
%todas 1/0 routines^ %to<aas% 
(inpcuc)PBOCEDUREj 

finput a character and translate it to upper case IF necessary^ 
IF mpUtcO IN (100B,132B; then puff *• ,AR - kOSj 
RETURN END. 
(inputc) PROCEDURE; 

%read one character from tty or buffer into lastchr?6 
fretrun ehr in a% 

buff*-lookc()} bufffg <■ .BRj buffct«-+-lj RETURN (buff) 
END. 
(lookc)PROGEDUREj 

%Xook at next haracter in input buf or tty% 
%RETURN in a.% 

%RlTURNs a flag in b register: Ischr literal, Oachr normal, -l«chr 
control^ 

If buffet THEN RETURN {buffrbuffct;,buffffj/'buffct;) J 
tinptcOj BUMP buffet J buff i"buffct;«-,Aij 
bufffgf,XR7«-,BRj 
RETURN END. 
(tO<3co)P0P OOOB PROCEDURE; 

%output a character to tty% 

IF putchr{rso;,carpos,0) ^ -i THEN % carraige RETURN tiie % crlfO 

ELSE BEGIN 

IF carpos+.AR > prcolx THEN crlfO ELSE 

carpos^-.AR 
END; 
RETURN END. 

(putchr) PROCEDURE (putchl,putch2,putch3); 

«put a character onto tty or a-string IF .XR # 0% 
IF .AR « Sasctab THEN BEGIN % tab in here % 

IF gettab(putch2+l) > prcolx THEN RETURN { -1 ) ;?&tab wont fit on 

line% 

putchl*putch2«-,AR-PUtch2; ^number of spaces to emit% 

(pttabl) 8 

IF not putch3 THEN TOO ELSE 
apchr(0,,putch3); 
putchl ♦■ +-1; 

IF putchl DO-SINGLE GOTO pttabl; 
RETURN (putch2) 
END; 

IF ,AR * tasccr THEN RETURN (-1); %iniaicate crlf?& 
IF prcapf THEN BEGIN % all upper case, slash before capsf 
.AR *• putchl; 

IF NOT IN (kOB,72B; DO-SINGLE GOTO putclc} 
IF NOT putch3 THEN TOO •/ ELSE 

apchr ( '/,,putch3) ; 



• AR ♦■ putchlj QOTO putcrSj 

(putclc)l IF NOT IN (1008,1326/ DO-SINGLE GOTO putcscj; 

• AR *• .AR - l|.OBj 
GOTO putcrl ENDj 

(pUtCSC): IF putchl > 132B THEN BEGIN 
IF NOT putch3 THEN TOO •& ELSE 
apchri '&,,putch3) ; 

,AR *■ putChl-lOOBj GOTO putcr2 ENDj 
(DUtcrl) ! 

BR 4* AR* 
IF NOT putch3 THEN BEGIN putch3 *■ .BRj TOO putCh3 END ELSE 
apchr(.BR,,putch3) J RETURN (1)J 
(putcr2) ! 

,BR ♦• ,AB; 

IF NOT putch3 THIN BEGIN putcb3 «• .BR; TOO putch3 END ELSE 
apchr{.BR,,putch3) J RETURN(2) 
END, 
(answer) %this PROCEDURE accepts a yes or no answer from the 
keyboard, and RETURNS wwith a in the a register IF the answer was 
negative, and a l IF it was positive^ 
PROCEDURES 
(ansstr) t 
CASE inptmO OF 

s Sascca: GOTO ansposi 
» 'Ys BEGIN (anspos): 

iecho "Yes. "J RETURN (1) END; 
a 'NS BEGIN 

leeho •♦No.'*; RETURN (0) END; 
= $asccd: GOTO gps 
ENDCASE BEGIN 

itodco '?; 
itodco Oj 
GOTO ansstr 

END 
END. 

(rdlit ) PROCEDURE (rdlit2,rdlitl); 

fread a literal from the keypoard, doing all of the control 

things. Plus fereakinf on any control character identified by the 

list in rdlitl* 

%RETURN IP error (buffer overflow), 1 IF ok% 

IF ,AR THEN BEGIN «ok ., a-strinf here% 

(rdlitl) t 

inputcOj IF NOT .NEG bufffg DO-SINGLE GOTO litchr; %not a 
control character* 
CASE .AR OF 

■ Sasccds GOTO gps; 
B $ascca: RETURN (1); 
« iascbei BEGIN 

bkachr(rdlit2); GOTO rdlitl END; 
s $ascbw: BEGIN 

IF Idchr(rdlit2,$l/'.AR;) a THEN %space past blanks* 
WHILE ®l/'rdlit2; > -1 AND NOT bkachr(.XR) DO NULL; 
WHILE bkachr(rdlit2) DO NULL; 



GOTO raiiti end; 
s sascbsts BEGIN Sl/rdlita;*--!; crlfOj GOTO rdlitl ENDj 
a Sasccdc: RETURN U) % centerdot% 
ENDCASE BEGIN 

(litchr)s 

IF rdlitl and chrpos(/DUff ,.AR) THIN RETURN (2) j 

Crdentc)! apchrJbuff ,,r<Jltt2) i 

IF $irr<llit2; s fOr.XR; thin return (0)j 

GOTO rdlitl END 
END; RIRRORO END. 
( restor ) PROCEDURE { restol ) ; 

%put character in a back i,ito the input buffer* 
%CALL rerror IF buff ovrflw% 
IF buffsz <s buffet DO-SINQLE rerror O J 
BUMP buffctj buffrbuffct;«'restolj 
bufffgr.XR; «• .BR; 
RETURN END. 
(tinptC)PROCEDUREi 

%This is the main character input routine. 

It does all of the character translation, RETURNing a inthe IF 
the character was a literal, and a -1 IF it was a control 
character. The character is RETURNed in the &% 
%todas control character defiitions% 
DECLARE todbc = 150B, ^control h% 

todbw a 167B, ^control v% 

todbst s 160B, %control q% 

todlf s 152B, fline feed% 

todca a iii,liB, control d% 

todcdt 5 111,28, %cotrol b% 

todcd ■ 171B, ^control x% 

todshc = '/, 

todlit a 'i; % exclamation point* 
tinptl«-0{%no special character^ 
(tinst) ! 

IF NOT tinpt2 THEN inptc { ) ELSE BEGIN .BR«.0; tinpt2«-.BR END; 
tinpt3<".ARj 

%first check to see IF lower case% 
IF ,AR IN (100B,132B; DO-SINGLE 

GOTO tintrlj 
%now see IF it is a special character* 
(inpnlc) ! 
IF .AR NOT IN (liOB,72B/ DO-SINQLE GOTO tincon;*by here, upper 

C 4 S c /b 

IF prcapf THEN tinpt3 «-+li.Ob; %really lower case* 

GOTO tintrlj 
(tincon) i 

IF .AR NOT > 132B DO-SINQLE GOTO tinspcj %by here, conrol 
Character* 

tinptl ♦• ,BR *■ -lj*mark as control character* 

CASE .AR OF 

a StOdbCS BEGIN 

(tinbsp): .BR ♦■ 't tinpt3 *- iascbci GOTO tinecl 

ENDJ 



B atOdlf J BEGIN 

(tlnlf)! IF echoff # 3 THEN BEGIN TOO Sasccrj carpos<"0 

ENDj RETURN (0,0) ^linefeed becomes space% 

END; 
» itodcas BEGIN 

(tinea): RETURN*, -1) 

ENDS 
3 StOfScdS BEGIN 

(tinc<3) : .AR ♦• Sasccdi GOTO tinea 

END; 
a Stoabw: BEGIN 

(tinbsw): .BR ♦- '\j GOTO tinecl 

ENDJ 
■ StOfJbSt: BEGIN 

(tinbst)! .BR «- '«• GOTO tinecl 
ENDj 
B itodcdt: BEGIN 

(tincdt): ,AR ♦• tasccdtj GOTO tinea 
END; 
ENDCASE BEGIN 

tinptl ♦" .BR «• 0; %inarJc as not control eharacter% 
GOTO tinech 
END; 
(tinspc) 8 

CASE ,AR OF 

= Stodshc: BEGIN 

(tinshc): IF prcapf THEN 
BEGIN 

IF tinpt3 «- inptcO IN {liOB,72B/ THEN GOTO tintr2; 
IF .AR IN (100B,132B; THEN BEGIN Slower case 
character* 

tinpt3 «- .AR-1|.0B; 
TOO tinpt3j GOTO tintra 
END; 
END; 
%by here, next character was not alphaf 
tinpt2 ♦• ,ARj 
tinpt3 ♦• '/; 
GOTO tintrl 
END; 
» Stodlit: BEGIN 

(ttnlit) : %by here, literal* 
tinptl * 1; 

IF ECHOFG <B 2 DO-SINGLE BUMP carpos; 
IF tinpt3 «- inptcO > 132b DO-SINGLE GOTO tinech; 
IF .AR = lOOb DO-SINGLE GOTO tinech; «centerdot 
non-printing% 
GOTO tintrl; 
END 
ENDCASE GOTO tintrl; 
(tintr2) ! 

IF ECHOFG <B 2 DO-SINGLE BUMP carpos; 
(tintrl) : 
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IF 3 <■ echofg DO-SINGLE GOTO tintrj 

carpos«"Carpos+lj IF ,AR > prcolx fHEN crlfOj 

(tintr): RETURN (tlnpt3*tinptl) j 
(tlnech) s 

.BR ♦■ tinpt35 

(tinecl) I 

IF echofg # 3 THIN outptc{.BR); 

RETURN (tinpt3#tinptl) 
END. 
(txtlit)% This PROCEDURE reads a literal into the literal buffer 
(litlc litlcl) for statene usage. 

It checks for overflow of the short literal buffer, and gets the 

long one IF necessary* 

PHOCEDUREJ 

IF litlc a THEN rerror ( ) J 

echolOj %turn off break on every characerf 

IF NOT rdlit (litlc, 0) THEN % short lit buffer full* 

BEGIN gtaiitO; %KGt bit lit buffer^ 

IF NOT raiit{litlc,0) DO-SINGLE lerr S3 ^big buffer full% 

END; 
echo3(); % turn break back on% 
RETURN 
END. 
(gt2lit)%gets the second literal buffer, checking for errors and 
copying string from name register across* 
PROCEDURE; 

IF litrf DO-SINGLE lerr «6s %big lit already got% 
EXECUTE prmspc; 
itlitaO; % get big lit ret* 
CDysr{Sstnxn,,litlc) J %copy old part accross* 
RETURN END. 
%todas character and command echo control routines % %todas% 

<echo) %This is the pop which does all of the echoing for todas 
It expects the address of a cell containing the string to be 
echoed in the address field of the pop. 
It types Characters from the string onto the tty until either 

(a) a period is encountered in the string 

(b) the number of characters typed is equal to the value in the 
variable feedbk. 

% 
POP 171iB PROCEDURE; 

,xn*'{$0}i %address of string to be echoed* 
echot3 ♦• feedbk; 
LOOP BEGIN 
echotz ♦■2; 

.BR «• sor.xR;; 

(echol): echotl <• LSH «6() .A 377B; *chr to be echoed* 

IF .AR » ». OR .DECNEG echot3 THEN EXIT; *end of string or 

feedbk* 

TCO echotl; *type chrs* 

IF NOT .DECNEG echotS DO-SINGLE GOTO echol; 

*by here,. done with word,, get next in string* 
.XR^-.XR+l; 






ENDS 

RETURN END. 
(echoOPROCEDUREj 

%echo each character with Itself j each character is a break 

character* 

BBS il2(echofg«-0,,-l) RETURN END, 
(echol) PROCEDURE; 

%echo all characters, break on all but space, letter an<5 digits* 

BBS $12(echOfg«-l,,-l) RETURN EMD, 

RETURN END. 
(echo3)PR0CEDURf J 

%no echo for any character? break on all characters* 

BBS $12{echofg«-3,,-l) RETURN END, 
(pushsp) %Push the A»B registers on the spec stack.* 
PROCEDURE (pshspDj 

IF spskt <s spsk DO-SINGLE rerrorOj 
spsk+'+a; 
.XR ♦• spskj 
• ARt-pshspli 

$Or.XR;<-,ARj tir.XR;«-.BRj 
RETURN END. 
*Q-inarks, arrow, bug setting, cfl, it* 

(qmon) *This displays a ? in the command feedback line.* 
PROCEDURE; 

dlpqb *■ dlpab .? ITkOOB; *?* 

RETURN END. 
(qmoff) *This turns the 7 off.* 
PROCEDURE; 

dlpqb «■ dlpqb .A 776OO000B; 

RETURN END. 
(cflarw) *Qiven a position integer in the B, this routine puts an up 
arrow under the string in that position of the command feedback 
line.* 
PROCEDURE (,cflptr); 

dlpqa«-(dlpqa ,A 77770000B) .V (<RSH S12 (cfltbl/cflptr; ) ) #(dlxcfl 

.A 77B) + cdcflh); 

dlpqb «• 171^000008; *t* 

RETURN END. 
(san) *Turn the command feedback arrow on,* 
PROCEDURE; 

dlpqb «• dlpqb .V 171iOOOOOB; 

RETURN END. 
(saf) *Turn the command feedback arrow off,* 
PROCEDURE; 

dlpqb «• dlpqb .A 177777B; 

RETURN END. 
(delul) *This routine turns any bug marks off,* 
PROCEDURE; 

dllul ♦•+ -I^OOOOB; 

cdulpt «•+ -1; 

RETURN END. 
(uloff ) *This PROCEDURE removes all of the marks (currently circles) 
that provide feedback of bug selects on the screen.* 
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PROCEDUREJ 

cdulpt «• Sdlbulj 

dllul *■ (dllul .A 37777B) ,V lOOOOOBi 

RfTURN END. 
(sbmfbc) %The chatacter that tracks the mouse position is set by this 
routine (Set Bug Mark FeedBack Character), The PROCEDURE is called 
with the character in the k,% 
PROOIDURE (cdtemp); 

dlxbug ♦■ (dlxbug .A 76007777B) ,V LSH «12 (cdteinp,0) i 

RETURN END, 
(cflatc) %This routine is called with an A-string address in the A, 
and an integer N in the B, It moves the strini to the Nth position 
in the command feedback line.% 
PROCEDURE (cf If rm, cf Iptr) ; 

% takes the a string (addr on a) and puts into the cfl in 

position* 

^specified by the b?S 

IF 9 <* cflptr DO-SINQLE ierr $6} 

cfltoo «• Sdlbcfl ♦ cfltblTcflptr; .A 7777B; 

%cfltoo is the first unused location in the ctl% 

IF cdabfl THEN BEGIN 

/■cfltoo;*-$2/cflfrin; .A 77600O00B .V IISIIB} 
cflbnd<-cfltoo END 

ELSE cflbnd «- asrbuf(cflfrffl, cfltoo); 

%cflbnd is the last loc used% 

IF /"cflbndi .A 177B « 177B THEN /"cflbnd; «■ /-cflbnd; .A 77777iiOOB 

ELSE BEGIN 

BUMP Cflbnd; 

/"cflbnd; ♦• 177777B END j 

BUMP cflfrij 

SirScfltbl + cflptr; «• «0/',XR; ♦ LSH $12 (IF cdabfl THEN 2 

ELSE /■cflfrin;+2,0) ,V (cflbnd > cfltoo+l)j 

dllcfl ♦• dllcfl .A 37777B ,V .LSH $ll| (cflbnd - tdlbcfl +3,0)1 

RETURN END. 
(Itlf) ^Several characters is the upper left corner of the screen 
provide feedback of the current view specs. Calling this routine 
will display those characters in a large character size,% 
PROCEDURE; 

dixit *■ dixit .A 77776000B .V 1722B; 

RETURN END. 
(Itsm) ^Calling this routine will set the display of the view spec 
feedback to a snail character size,% 
PROCEDURE; 

dlbrlv «• 37700000B; 

dixit *- dixit .A 77776OO0B .V 1116B; 

RETURN END. 
%a"string stuff% 

(cvsno) %An A-string containing digits can be converted to a binary 
integer by calling CVSNO with the A-string address in the A. The 
conversion is done to the base 10, ana all characters are assumed to 
be digits, and are not checked. The A-string is not changed, and the 
integer is RETURNed in the A. If the first character is a minus 
sign, the number will be converted to a negative number correctly, % 
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PROCICUBE(cvsnol) J ^convert a-string to integer^ 
cvsno3fCvsno2,cvsnoli *■ 0} 

IF iachr(cvsnol,0) = 15B THEN BUHP cvsno2,cvsnolj.j 
LOOP BEGIN 

cvsno3 ♦• cvsno3*10 + l(3clir{cvsnol,cvsno2) -20B| 
IF cvsno2 *- cvsno2 + 1 > Slfcvsnoi; DO-SINGLE EXIT 
ENDJ 
HETURNdF cvsnoli. THEN 

-cvsno3 ELSE cvsno3) 
END. 
(asmam) %kn A-string is displayed in the name area by calling 
ASRNAM with the address of the A-string in the A. The routine 
converts the case of letters in the string for the display, by moving 
the A-string character by character (and converting) to an A-string 
named NUMRES, It THEN calls ASRBUF to move NUMREG to the naie 
register display buffer.fS 
PROCIDUBE (astnml)} 
BUMP astnmlj 

IF /"astnmi; > dlbnmx THEN astnml^ «■ dlbnmx 
ELSE astnml). ♦■ .AR; 
numreg *• 60; 
astnrr!2 «■ 0; 
numrgl «■ -1; 
nuwreg «■ 60; 
WHILE astnm2 <■ astnnli DO BEGIN 

astnm3 ♦• ldchr(astnml -l,astnffi2) ; 
BUMP astnn2| 

apchr( astnin3,,fnumrei) ENDj! 
asrbuf ($nui!ireg,Sdlbnara) ; 
,AR ♦• .AR - Sdlbnam +3; 
dllnam *■ LSH fllt(,0) .V «dlpnamj 
RETURN END. 
(bKachr) fGiven the address of an A-string in the A, this routine 
wil subtract one from the length, and THEN RETURN the last character 
of the string in the A.f 
PROCEDURE; 55 {a-string address in a)% 
IF S1/,AR; > -1 THEN Sir.XRi *■* -1 
ELSE RETURN (0); 

IF carpos > THEN carpos ♦- +-1; «carraige position for todas% 
RETURN (IdChrt.XR, il^-XR;) ) END, 
{numdpy) %This routine is used to convert a binary integer to an ASCII 
number. The integer is provided in the A, and the routine RETURNS with 
the nuiber in the A, in ASCII. ThiS' PROCEDURE is used primarily for 
displaying the view specs. Hence "all" is RETURNed IF a number less 
than zero or greater than 100 is given in the a. The ASCII number is 
left justified with blanks added at the END,% 
PROCEDURE (numdl); 

IF nusndl < OR numdl « 100 THEN RETURN (10226051^8) ; 
numd3 «• Oj 
numdli ♦• 3j 

WHILE numdit DO BEGIN 
numdU ♦■+ -1; 
numdl ♦• numdl/10; 
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.AR «- .BE + 20BJ 

,AR > RSH f8(,nuffid3)j 

num<S3 ♦• .BR; 

IF numai s THEN RETURN (numd3) END; 

RETURN (nuffi(33) END. 
(xintr?) %This routine carries out all the details of finishing up when 
an INPUT QED BRANCH command is done. It is activated by 
pseudo-interrupt 209. It stops the fork that listens for ruisouts WHILE 
the input is done, stops the input fork and relabels out the PASSl code, 
closes the input file, removes the message, and recreates the display. 
It does not RETURN froR the interrupt but goes to previous state. ?l 
PROCEDUREJ 

,AR *■ ioutfpt; 

IF .MEG outfptf6; DO-SINGLE BRS S32 () ; 

BRS i32($inpfpt); 

BRS $121(tptssl) i 

^delete when change data page% tcalc «■ toutovj 

±np£v>%fk} *■ inprllj 

inpfptfSi ♦■ inprl2j 

inpfpt «• Sinptflj 

paslff«-inptfg <- 0; 

inptbo ♦• inptbi; 

BRS S9(iinpfpt ,V 66000000B); 

BRS S78(intnsk)j 

BRS ■ft20{outfn); 

disi!ies(,0) i 

• AR ♦• -Ij 

iany txtj 

GOTO iPS END, 
(cptstr) %The function of this routine is to copy a T-string to an 
A-strin«c. The calling arguments are the address of a T-pointer in the A 
and another in the B, and an A-string address in the X. It copies the 
T-strin? determined by the two T-pointers into the A-string, after 
setting the A-string to null. The two T-pointers must point to the same 
statement, or RERROR is called. An external flag is associated with 
this routine, named CPTSRC, If it is true, the string is forced to 
upper case. The flag is always reset before the routine RETURNS, Notes 
IF the T-pointers point to the same character, one character will be 
moved into the A-string. The END characters of the T-string are 
included in the resultant A-string. % 
PROCEDURE (cptsrl,cptsr2,cptsr3) ; 

%copy t-str to a-str% 

IF fcptsriy # /'cptsr2/ DO-siNGLE rerrorOi 

swork «• rcptsrl/; 

BUMP cptsrlj 

sworkl <• rcptsrl7{ 

BUMP cptsr2| 

Sircptsr3/ ♦• -1{ 
%null string* 
cptsrS «- [cp%ar2]*l} 
,AR ♦• fechcl{l,,$swork) j 

BRM sar.xR;; 

cptsrl «• .ARJ 
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WHILE .AR # endchr ana sworkl <s cpt,sr2 DO SEGIM 
IF cptsrc THIN BEGIN 

IF cptsri IN (ioob,132b; then cptsri «• .ar-Iiob 

END} 
apchr{ cptsri,, cptsr3) ; 

,XR ♦• ^sworKj 

cptsrl ♦• .AR END; 

cptsrc *- 0; 

RETURN END. 
(chJtfrz) %This routine calls BERROR IF any core blocks are frozen. 
That is, the FRZCPT (frozen core page table) must contain -1 in all 
positions. % 
PROCEDURE; 

FOR frzrfl FROM INC 1 TO rficbx DO IF frzcptffrzrfi; # -1 DO-SINGLE 

rerror( ) j 

RETURN END. 

%pops% 

(lee) fLoad Entity Character. The entity character (SMEG) is set to 
the character in the address field of the pop.f 
POP 103B PROCj %load entity character % 

EAX [$QJ (,,0) J 

snec«'«XR; 

RETURN END, 

(les) %Load Entity String. The entiy string (SMES) is set to the 
A-string address provided in the pop address field. % 
POP 101;B PROC; % load entity string % 

EAX /■fO;(,,0); 

smes«-.XR; 

RETURN END. 
(gset) %Group SET. The current group is set to the group number 
given in the address of the pop. If the group has changed, the 
entity character and string are set to the initial values for that 
group. The initial values are in IQRPC and IGRPS.% 
POP HOB PROCj %set group and entity % 

EAX rso;{,,o)j 

IF .XR s curgrp DO-SINGLE RETURN; 

IF .AR > $groupx DO-SINGLE rerror ( ) ; 

SBec^-igrpcf.XR); 

smes«"igrps/'.XR;; 

curgrp«".XRj 

RETURN END. 
(ffllfl) %Move Literal to Feedback line, first position. This pop 
sets the feeckback line position counter (CFLPOS) to -1 and THEN 
executes the code for a MLF pop.% 
POP lllB PROC; 

%move literal to feedback - first pos % 

cflpos*--! END, 
(mlf) %Move Literal to Feedback line. This pop increments the 
feedback line position counter by one and THEN moves the A-string, 
Whose address is in the address field of the pop, to the feedback 
line by calling CFLATC.?^ 
POP lltlB PROC; 
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%niove literal to feeaback - next* 

BUMP clpos END. 
(mifr) %Move literal to FeedbacH line ana Replace last. This pop is 
the same as MLF except that it does not increment the position 
counter before moving the string. % 
POP lll2B PROCEDURE; 

%move literal -over last% 

.BR*-cflpos; 

EAX TiO/i 

RETURN (cf late (.XR .A 37777B) ) END. 
(rep) %REPeat a case statement. The REP pop removes the overlay 
address from the circular case save array, resets the pointer (CASV) 
to the previous entry, and branches to the saved location using 
routine OVLGO, The address of the pop contains an integer which 
indicates how raany cases to back up over. A REP is the normal 
edition, which RETURNS to the instruction following the last CSE pop, 
and does not change the case array pointer, A REP 1 backs up the 
pointer by one. The big problem with the current case business is 
that the pointer is not moved back when a repeat is NOT done. Hence 
REP 1 or REP 2 will not RETURN to the correct location IF someone 
branched out of an inner case. 
POP 113B PROG; ^repeat in case statement* 

smcreg«-smbreg; 

,XR<-casvj 

IF [$0J > THEN BEGIN 

casv<»(-(,AR-casv) ) .A Sncasvl; 
.XR*-,AR ENDl 

IF NOT .NEG casvbf.XR/ DO-SINGLE BRR casvbf.XP;,* 

ovlgo(ca$vb/',XR;) END, 
(dfs) %DeFine State, The overlay address is saved in STATE, and 
the current group is set to the integer given in the address of the 
pop, A ZAP is THEN executed,* 
POP IkkB PROG; * define a state * 

state^abtgt^-ovladr (SO) j 

EAX [$0}(»,0)} 

curgrp^-.XR; 

GOTO zap END, 
(eta) POP llt7B PROCEDURE; 
IF [$0) THEN BUMP cptsrcj 

RETURN (cptstr($sptrl,Ssptr2,$sarxn) ) END, 
(anypop) POP 177B PROGj 

EXTERNAL creg,breg,sreg,sba,sbp, ta, mrf ,mrfr,mrkl,mrk, kin, 
kct,pbm,cse, spcb,spcr, spcrno,spcrp,spcrna, mrs,bkc,dpn,spca, 
spcf ,spcn,cct, cct, zero, zap, zapsp, feedlt i* * 

GOTO rso/j 

(creg): %appEND the character in C-REG to string in A-reg, The 
character in SMOREQ is appENDed to the register whose number is in 
SMAREG,* 

regadr (sraareg) ; 

RETURN (apchr(smcreg) ) J 
(breg)! * appEND char in b to reg no, in a » 

regadr (smareg) ; 

RETURN ( apchr(smbreg) ) ; 
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(sreg)j % appEND sar to reg no, in a I 

rega(lr{sT!!areg) j 

RETURN { apsr{$sarxn) ) J 
lsba)s % set Pug to arrow % 

RETURN (sbiifbcCrmdcr)) J 
(stop) I % set bug to plus % 

RETURN (sbinfbc(dirffldcr) ) ; 
(tt): ^display in text area* 

IF NOT litrf AND stnxn <s stnl+l THEN gt21it()j 

IF Sffibreg <s 132B or .AR = ISIB or .AR ■ 1S5B 
THEN apchr(smbreg,,litlc) ; 

IF NOT paslfg THIN aplit (smbreg) j 

RETURN; 
(mrf): % move register to feedback line % 

BUMP cflpos; 
(rarfr) : % move register to feedback (same spot) % 

regadr (smareg) ; 

•BR^cf iDos; 

RETURN ~{cflatc{.XB .A 37777B))j 
(mrkl) : WaRK feedback line for up arrow in first position. This 
calls CFLABW to dispay an up arrow under the first position of the 
feedback line.% 

RETURN{cflarw(O,0)); 
(nrk); %MaRK feedback line for up arrow. This pop has CFLARW 
dislay an up arrow under the NEXT position in the feedback line,% 

RETURN{cflarw(0,cflpos+l)); 
(kin)! *lNput a character. The routine INPTM is called to read a 
character. The character is stored in SMCREG, QMOFF is also 
called, to make sure a "?" is not being displayed, ?S 

srocreg«-lnptm() j 

RETURN(qmoff ()) ; 
(kct)! %Charctcr Test, This compares the character in SHBREG with 
the input charcter in SMCREG and sets FLAG IF they are equal, 
resets it IF not. The input character is forced to upper case 
before the compare, % 

,BR«-l; 

IF smcreg IN (100B,132B; DO-SINGLE .AR«-,AR-liOj 

IF .AR # smbreg DO-SINQLE .BR«'Oj 

flag«".BRj 

RETURN; 
(pbm)j ^Process Bug Mark, This pop resets the flag IF the input 
character (in SMCREG) is not a command accept. Otherwise it sets 
the flag, reads the bug coordinates and stores them in BUGREG,% 

flag<-0; 

IF smcreg # «ascca DO-SINGLE RETURN; 

BUMP flag; 

readbmi ) ; 

STP bugreg; 

return; 
(cse) : %CaSE statement. This pop causes the overlay address to be 
"pushed" onto the case save stack (which is curcular). The flag 
is set to false, % 

casv<'(casv+l) ,A Sncasvl; 



16 



csel^-.ABj 

casvbifcsei;«'OVla(ar (SO) ; 
flag ♦• 0; 
RETURN; 
(spcb): %SPeC a Bug mark. If BUGREG does not already contain a 
T-pointer (a -1 in the first word) THEN either PBUQ or TREBUG in 
TREE is called to PROCess the bugmark into a T-pointeri The 
T-ponter is pushed onto the spec stack. % 
LDP buKref J 
IF .AR * -1 THES BEGIN 

IF NOT cdtref THEN pbugO 
ELSE BEGIN 

txtloc ♦• ovladr(SO)j 
EXECUTE rfbpSj 
EXECUTE cdsplyj 
EXECUTE disbuf J 
trebug ( ,bugreg/"i; ) ; 
pushsp( ) i 

OVlgO(tXtlOC) END ENDJ 

RETURN (pushsp())i 
<spcr); % SPeC a Register. This is a rather compilcated pop that 
converts any string register to a T"pointer or number for the spec 
stack, DepENDing on which register is indicated by SMAREG, 

(STNO) It converts the string (a statement number) to a PSID by 

calling FECHUX. 

(NUMN) It converts the string to an integer by calling CVSTNO, 

and pushes (0, number) on the spek stack. 

Otherwise, IF the first character of the string is a digit, it 

converts it as a statement nuiaber as above, or ELSE it treats 

it as a name and finds the corresponding PSID by calling 

LKNAMH. % 

sratemp «• fOj 

EXECUTE rfbp2; 

fO <- smtempi 

IF smareg « Sstnon DO-SINGLE GOTO spcrnoj 

IF ,AB # inumnn DO-SINGLE GOTO spcrna; 

cvsno{«numnxn) ; 

copy (AB,A)| 

GOTO spcrpj 
(spcrno) : 
regadrO J 
(spcrnl) I 
fechux(.XR) i 
EXECUTE abort 82; 
(spcrp) ! 

RETURN (pushspO ); 
(spcrna) : 
regadr ( ) ; 

IF NOT .NEG Slf.XR/ THEN BEGIN 

IF LRSH S16(S2r.XR;) IN (17B,31B; DO-SINGLE GOTO Spcrnl END; 
.AR ♦• 0; 

IF .NIG S1/",XR; DO-SINGLE GOTO spcrp; 
hash(.XR) ; 
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This used CPYSR to move the 



Iknamh ( ) j 

I abort $3| 

GOTO spcrpj 
(fflrs)s %Move Register to string area, 
A-strini indicated by SMAREQ to SAR.% 

regadr (sraareg) j 

RETURN (cpysr{,XR,,Ssarxn) ); 
(bkc): %BacKepace Character. The A-string indicated by SMAREQ is 
backed up one character via routine bkachr.% 

regadr (smareg) j 

RETURN(bkachr(.XR)) J 
(dpn) : %DisPlay in Name area. The A-string indicated by SHARES is 
displayed in the name area,% 

regadr (smareg) ; 

RETURN (asrnamC.XR)) j 
(spcn): fThis gets the hash of the A-strine indicated by SMAREG 
and puts (-l,hash) on the stack, % 

regadr (smareg) ; 

RETURN(pushsp(-l,hash(.XR)) ); 
(cct) s %Character Class test. This pop does the character class 
testing for the CASE statement. The letter class includes both 
upper case and lower case letters. The classes are: 

(1|.) Letter 

(5) Digit 

(6) Any character. % 
.BR «• 1; 

IF smareg * 6 THEN NULL 

ELSE IF .AR - 5 THEN BEGIN 
IF smbreg NOT IN 

ELSE IF .AR a k THEN 
IF smbreg NOT IN 
IF .AR NOT IN 

ELSE Terror ( ) j 

flag <- .BRi 

RETURN; 
(zero)! SZERO the spec stack, 
the bottom of the spec stack. % 

spsk^-spsklj 

RETURN; 
(jsap): %ZAP everything. This includes: 

Collapse the general stack. 

Release the long literal register, IF it exists. 

Reset the spec stack. 

Relabel out the two random 

Call CHKFRZ, LTSM, RESDPY, 

stack^-stackl; 
(zapsp)i ?5ZAP the SPec stack, 
except that the general stack 

spsk<-spskl; 

rellitO; 

smtemp ♦• SO; 

EXECUTE nrfbp2; 

SO ♦" smtemp; 



(17B,31B; 
BEGIN 
(liOB,72B; 



DO-SINGLE .BR<-0 END 
THEN BEGIN 



(100B,132B; DO-SINGLE .BR*-0 END END 



This does sets the stack pointer to 



file block 
and ULOFF. 



pages 

% 



This is exactly 
is not changed. % 



(RFBPl and RFBP2) 



the same as ZAP, 
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chklrzO J 

IF tOdas DO-SINGLE RETURN; %tOdas% 
RETURN (Xtsm(resdpy(uloff ()))); 
(£eedlt)8 %FEED LT specs. This pop requires that PRMSPC be in, 
since it calls SlTLT. However, it does not check. The characters 
in the A-string indicated by SMAREG are fed to SETIT one at a 
time.% 

regadr (smareg) j 
fedlt3 *• ,XB; 
fedlta «• tljf.XRjf; 

FOR fedltl FROM INC 1 TO fedlta DO BEGIN 
ldchr(fedlt3,fedltl) j 
setltO END; 
RETURN END. 
(tch) %Test character. Sets SMBREG to the character lookinf for, THEN 
goes to kct,% 
P0Pllt6B PROCEDURE} 
EAX /"S0/{,,0)j 
snbreg *■ .XRj 
GOTO kct END. 
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finish 
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;MNOTRL, 09/17/69 1301:36 CHI ; .HED="MAIN CONTROL OVIRIAY"! ,SCR»1| 
.PLO»l; ,MCH»75; .RTJ»Oj .DSNBl; .LSPsOi .MINS70J ,INS=3j 
file ranctrKorgffict) 

(+wait) bp af • case 

(cd) an goto [sj 

(ca) an return 

endcsse repeat 0{.) 
(^caqm) case 

(ca) goto [sj 

(cd) goto [a] 

endcase qm repeat 1(.) 
(+dmain) display goto main 
(♦setdum) +gdmys,txtedt/'pi; goto dmain 
(♦cmdrst) s»»zz,spec dsp(<comBiane3 reset «•) 

cdflag (incse,0) goto main 
(♦mdlspec) mdreset (ladnxt) s . case 

(b) dsp (boldface t) boldface goto mdnxt 

(c) dsp (capital t) upper-case goto indnxt 
(f) dsp (flicker T) flicker goto mdnxt 
(i) dsp (italics t) italics goto ffldnxt 
(1) dsp (lower t) lower-case goto mdnxt 

in) dsp (noboldface t) no-boldface goto mdnxt 

(r) dsp (roraan t) roman goto mdnxt 

(s) asp (solid t) solid goto mdnxt 

(u) dsp (underline t) underline goto mdnxt 

(w) dsp (nounderline t) no-underline goto mdnxt 

(cd) mdreset goto cmdrst 

(ca) dsp («•) return 

endcase repeat 0(.) 
(+main) bp zap . goto wc 
(+WC) bp an zap case 

(a) s»«xa,spec dsp(«-< append statement) -qas,stredt 

(b) S*sbs,spec dap(<'< break statement) -qbs,stredt 

(c) /"edit; dsp(<copy tes#) • case 

(c) s»8cc,edit dsp(*' < copy character) e#«c, character 
+bug2spec,prmspc -qcCjitxtedt 

(d) -qcd,vcteat 

(w) s^scwjedit dsp(«- < copy word) e»»w,¥ord 

+bug2spec,prmspc -'qcw,txteat 
(n) s«8cn,edit dsp(<- < copy number) e*sn, number 

+bug2spec,prmspc -qcn,txtedt 
(v) s»«cv,edit dsp(«' < copy visible) e*»v, visible 

+bug2spec,prmspc -qcv,txtedt 
(1) s«Bci,edit dsp(«" < copy invisible) e«»l,invisible 

+bug2spec,prraspc -qci,txtedt 
(t) s#sct,edit Aapt*- < copy text) e*Bt,text 

+bug3spec,prmspc -qct,txtedt 
(s) s»scs,edit dsp(<- < copy statement) e*BS, statement -qcs,stredt 
(b) s»»cb,edit dsp(*' < copy branch) e#ab, branch -qcb,stredt 
(p) s#"cp,edit dsp(«- < copy plex) e#Bp,pxex -qcp.stredt 
(f) s»=cg,edit dsp(«' < copy group) e*>»g, group -qcg^stredt 
(ca) repeat 0(e#) 
endcase goto caqm 



MAIN CONTROL OVERLAY 



delete branch) e»»b, branch -qdb,streclt 
delete plex) e»«p,plex -qdPjStredt 
delete group) e^sgjfroup -qdg,stredt 



(d) fedit; dsp(<delete tes») , caae 

(c) s*adc,edit dspC** < delete character) e»ac, character 
+buglspec,pr!nspc -qdCttxtedt 

Id) -qdd.vctedt 

[w) s*«dw,edit dspC*- < delete word) e*Bw,¥ord 

+buglspec,prmspc -qdw.txtedt 
In) s#»dn,edit dspC* < delete number) e»an, number 
■buglspecjprnjapc -qan,txtedt 
Iv) s»sdv,edit dspC*' < delete visible) e»»v, visible 

♦buglspecprmspc -qdv,txtedt 
11) s*»di,edit dspC*- < delete invisible) e#si, invisible 

♦buglspec.prmspc -qdi,txtedt 
It) s*=dt,edit dspC*- < delete text) e#*t,text 

♦bug2spec,prmspc -qdt,txtedt 
a) s#Bds,edit dsp(«- < delete statement) e»as, statement 

-qds,stredt 
lb) s*»db,edit dspC** < 
Ip) s*«dp,edit dsp(*' < 
g) s#«dg,edit dspC*" < 
!ca) repeat Die*) 
endcase goto caqm 

(e) dap (<execute t) . case 
a) -eapjioctl 

Ic) dsp{<content analyzer**) +buglspeCjiPrmspc 
getrf -cacmpg,cacinpl 

[d) dspKdeclare file ownership*-) +wait 
i" Ida cunoj sta funo" goto [a] 

[£) -fcln,clnup 

[1) goto qaq.ioctl 

[o) dsp(oops) ♦wait; 

|p) dsp (♦■compactor) ♦wait af getrf 

goto cinptrl,txtedt 
a) dspC^-status) getrf ♦sttusO,auxcod 

♦wait display goto/"s; 
Iv) -diddXjdiddl 
[x) -calcm,calc 
endcase goto caqm 

(f) /"special; dsp(< freeze tstatement) , case 
s) s#BKf,spec dsp{* < freeze statement) -Qkf,auxcod 

Ir) s*fsicr,spec dsp(«- < release statement) -qkr,strmnp 
la) dsp(*'< release all) ♦wait •qKa,auxcod 
lea) repeat 0(s) 
endcase goto caqm 
(i) fedit; dsp(<insert tes») . case 

Ic) s««iCj,edit dapC*- < insert character) e»sc, character 

call getlit lit«»0 ♦bugltspec,prmspc -qic.txtedt 
Iw) s»»iw,edit dsp(«- < insert word) e*aw,word 

call getlit litWBSp ♦bugltspecprmspc -qiw,txtedt 
In) s*=in,edit dap(«' < insert number) e»«n, number 

call getlit lit»8sp +insacc,calc +buglspec,pr!iispc •Qlw,txtedt 
Iv) s#8iv,edit dsp{^ < insert visible) e#sv, visible 



MAIN CONTROL OVERLAY 

call getlit lit»Bsp +&ufltspec,prffispc "qiv.txtedt 
(i) s»Bii,edit dsp(«- < insert invisible) e#Bi, invisible 

call getlit lit*s!0 ■••bugltspeCjprinspc "qii,txtedt 
(t) s#»it,edit dsp{*- < insert text) e*at,text 

call getlit lit*sO +bugltspec,prmspc -qit.txtedt 
(s) s»«is,e(ait dspC* < insert statement) e»ss, statement 
-qis,prmspc 

(b) s»««ib,edit dsp{*- < insert branch) e*sb, branch -qis,prraspc 
(p) s*a:ip,edit dsp(*- < insert plex) e»ap,plex -qis,prmspc 

(i?) s*aig,edit dsp(«- < insert group) e*ag, group -qis,prmspc 

(q) s#«iq,edit dsp{«-<insert qed branch) e*ab, branch 
+specit,prinspc goto qiq,ioctl 

(ca) repeat 0{e*) 

endcase goto caqra 
(d) -dnipagn,vctedt 
IK) -Kmain,keywd 
(1) goto qlq,ioctl 
(m) /"edit; dsp(<inove tes») . case 

(c) s»«inc,edit dsp{«- < move character) e*sc, character 
+ bug2spec,prnispc -qmc,txtedt 

(d) -qrodjvctedt 

(w) s*smw,edit dsp(«- < move word) e*BW,word 

+bug2gpec,prraspc -qinw,txtedt 
(n) s*ainn,edit dsp(*- < move nuiber) e*sn, number 

+bug2spec,prmspc -qnn,txtedt 
(V) s*smv,edit dsp(«- < move visible) e#sv, visible 

+bug2spec,prmapc -qmv,txtedt 
(i) s*«i!ii,edit dspl<- < move invisible) e*«i, invisible 

+bug2spec,pr!nspc •qmijtxtedt 
(t) s*Bnt,edit dsp(«- < move text) e«»t,text 

+bui3spec,prmspc -qmt,txtedt 
(s) s**r!s,edit dsp(«- < move statement) e#'ss, statement 

-qns.stredt 
(b) s#sinb,edit dsp(<- < move branch) e»«b, branch -qinb,stredt 
(p) s*Brap,edit dspC*" < love plex) e*Bp,plex -qnp,stredt 
(f) s»»mg,edit dsp(<- < move group) e#«g, group -qpg,stredt 
(ca) repeat 0{e») 
endcase goto caqra 
(o) goto qoq.ioctl 
(p) /"special} dspKpointer tfix) , case 

(f) s*»pf,spec dsp(<"<pointer fix) call getlit lit#sO 

♦bugltspeciprinspc -qpf,txtedt 

(in) s#Bp!B,spec dsp(* < pointer move) call getlit lit»=0 

+bugltspec,prmspc +qpnl,auxcod -qpf,txtedt 

(1) dsp(* ... list show) ♦qplsl,auxcod -qpls2,prnispc 

(r) dsp(,., release tall) , case 

(a) dsp(«-) +wait delptr(all) displayO goto [aj 

(t) s#sprt,spec dsp(<-<pointer release text) 
+bug2apec,prEJspc -qprt,txtedt 

(ca) repeat 0(a) 

endcase goto caqi 



MAIN CONXROI, OVERLAY 



(q) 
(r) 



goto [s] 



(s) 



(ea) repeat 0(f) 
endcase goto caqm 
c5sp(<view sett) +ltspec,prfflspc display O 
^edtt; dsp(<replace tes#) , case 
(c) s«*rc,edit dsp(<-<replace character) e^sc, character 

call getlit lit»sO +rplbug,prmspc -qrc,txtedt 
(w) s«»rw,edlt dsp(«-<replace word) e*aw,word 

call getlit lit*aO +rplbug,prmspc -qrw,txtedt 
(n) s*«rn,edit dsp(«- < replace number) e#«n, number 

call ftetlit lit*sO +rplbug,prfflspc -qrn.txtedt 
(v) s« = rv,edit dsp(«-<replace visible) e#sv,visible 

call getlit lit»sO +rplbug,prmspc -qrv,txtedt 
(i) s««ri,edit dsp<«-<replace invisible) e*«i, invisible 

call getlit lit#*0 +rplbug,prfflspc -gri.txtedt 
(t) s*»rt,edit dsp{«-<replace text) e««t,text 

call getlit lit»«0 +rpltbug,prmspc -qrt.txtedt 
(s) s*»rs,edit dsp(«'<replace statement) e*«s, statement 

-qrs,stredt 

(b) s#8rb,edit dsp(*'<replace 
(p) s*Brp,edit dsp(«-<replace 
(g) s«8rg,edit dsp(«-<replace 
(ca) repeat 0{e*) 
endcase goto caqm 

dsp{< set T ) • case 

(c) s*«sc,spec dsp(< set character t) 
+mdispec (scl): zap +buglspec,prmspc +qsc,txtedt 

(w) s»ssw,spec dsp{< set word t) 

+iidispec (swl); zap +buflspec,priiispc 
(n) s»»sn,spec dsp(< set number t) 

+mdispec (snl); zap +buglspec,prmspc 

s*«sv,spec dsp{< set visible t) 
+mdispec {svDs zap +buglspec,prmspc 

s*Bsi,spec dsp(< set invisible t) 
♦mdispec (sil): zap ♦buglspecjprmspc 

s»Bst,spec dsp(< set text t) 
♦mdispec (stl)i zap +buf2spec,prmspc 

s«Bss,spec dsp(< set statement t) 



branch) e#sb, branch -qrb,prinspe 
plex) e*»p,plex -qrp,prmspc 
group) e«ag, group -qrg.prmspc 



(V) 

(i) 
(t) 
(s) 



zap +buglspec,prispc 



♦mdispec (ssl) 
(ca) repeat 0(e#) 
endcase goto caqm 
(v) -vinain,vctrl 
llw) -scinain,vctedt 

(x) dsp(< substitute t branch) . case 
%(e) s#8xe,edit dsp( ♦< edit statement) 
+xedit,inpfbk +stlit,txtedtrbl7 goto 



+qsw,txtedt 
+qsn,txtedt 
+qsv,txtedt 
+qsi,txtedt 
♦qstjtxtedt 
♦qssjtxtedt 



goto scl 

goto 

goto 

goto 

goto 

goto stl 

goto ssl 



swl 



snl 



svl 






(s) s»»xs,spec dsp{ *< 
(b) s*»xb,spec dsp{ ♦< 
(f) s«a:xi,spec dsp( ♦•< 
(p) s*"xpjSpec dsp{ ♦-< 
(ca) repeatO(b) 
%nov do we do the wait? 



substitute 
substitute 
substitute 
substitute 



+specit,prnspc 

statement) -qxs^stredt 
branch) -qxb,stredt 
group) -qxg.stredt 
plex) -qxPfStredt 



MAIN OONTROl OVERLAY 



also how ao we get th count displayed? % 
entScase foto cacjw 

(sp) repeat 0(,) 

enflcsse goto caqm 
words { text, word, number, visible, invisible, branch, plex, all, 

group, delete, insert, replace, move, copy, 

show, <3ont, list, file, 

pointer, fix, view, set, reset, 

command, release, break, append, 

boldface, capital, flicker, italics, lower, noboldface, 

roman, solid, underline, nounderline, 

content, analyzer, execute, qed, freeze, substitute, 

compactor, oops, status, declare, 

ownership 

) 
end of mnctrl 



;PRMSPC, ll/Qk/e9 1139;17 ¥HP j PARAMETER SPECIFICATION .SORsl; .PLOalj 
.MCHS7S; .HTJaOi .DSNalj .I,SP«0; .MIN=70; .INSs3; 
«.HEDs"PRMSPC, SPl CODE"; .RES; 



PRMSPC, SPL CODE 

% 

file prfflspc(orgpsp) 
Sodds and ENDs% 

(+recre) display GOTO [s] 
(+nuview) (dl) display{dl) GOTO [s] 
(+set.vsp) feedlt(num*) RETURN 
(+specbug:) spec (Pug) RETURN 
(+waitp) bp af . case 
(ed) an GOTO [bJ 
(ca) an RETURN 

(be) CALL softcd Pa repeatK.) 
ENDcase repeatOt.) 
(+bcp) case 

(be) CALL softcd repeat 2(,) 
ESDcase GOTO wcmnctrl 
( + suitl2) CALL ftlit2 RETURN ?5called by substitute in str»np% 
%bupc acceptors^ 

{+bus;lspec) ba . case 

(bug) spec (bug) bp +waitp RETURN 
ENDcase GOTO bcp 
(+buit2spec) ba , case 

(bug) spec (bug) +buglspec RETURN 
ENDcase GOTO bcp 
(♦bug3spec) ba * case 

(bug) spec (bug) +bug2spec RETURN 
ENDcase GOTO bcp 
(+bugXtspec) ba . case 

(bug) spec (bug) bp +atext an RETURN 
ENDcase GOTO bcp 
(+bufltspec) ba . (bgltspec)! case 
(bug) bp spec (bug) +ltspec RETURN 
ENDcase GOTO bcp 
(trplbug) ba . case 

(bug) spec (bug) . case 

(bug) spec (bug) -fwaitp cdflag (rplb,l) RETURN 
(be) CALL softcd repeatK.) 

ENDcase af bp +atextl an cdflag(rplb,0) RETURN 
ENDcase GOTO wc,mnctrl 
(♦rpltbug) ba . case 

(bug) spec(bug) • case 
(bug) spec(bug) • case 
(bug) spec (bug) . case 

(bug) spec (bug) +waitp cdflag(rplb,l) RETURN 
ENDcase GOTO bcp 
(be) CALL softcd repeatK.) 

ENDcase af bp +atextl an cdflag(rplb,0) RETURN 
ENDcase GOTO bcp 
ENDcase GOTO bcp 
^number, name, literal, and It acceptors* 
(♦atext) af . (atextl) : case 
(cd) an GOTO [si 



PRMSPC, SPL CODE 

(ca) an RETURN 
(C) an RETURN 

(be) backdit*) (Jt{c») repeat 0(,) 
(few) bacKw(lit#) dt(c*) repeat 0{.) 
ENDcase dt(c*) repeat 0(,) 
(♦integer) af • 

(integl) J I"integX ext" nnm*'»0 t^nlnum*) case 

(ca) an RETURN 

($d) &nuia» dn(nutB») repeat 0(,) 

(cd) an GOTO [aj 

(be) back(num») dn(nura») repeat 0{,) 

(bw) num#BO dn(num») repeat 0(.) 

ENDcase qm repeat 0(,) 
(+ltspec) Itl af edflagdtflag,!) , ease 
(cd) Its an GOTO [aj 
(ca) Its an RETURN 
(tec) GALL softcd an ba repeat !(•) 
IKDcase I" Ida srocregj sbrm setlt" repeat 0{.) 
(♦statno) stno*«0 dn(stno*) af case 
(cd) an aOTO fa] 
(ca) an RETURN 

(be) bacic(stno#) dn(stno*) repeat 0(,) 
(bw) stno**0 dn(stno*) repeat 0(.) 
ENDcase &stno* dn(stno») repeat 0(.) 
(+statnam) stn^so dn(stn*) af case 
(cd) an GOTO (a] 
(ca) an RETURN 

(be) bacK(stn*) dn(stn») repeat 0(.) 
(bw) stn*a0 dn(stn*) repeat 0(,) 
ENDcase 

t" Ida smcregj sKg «132b; skg aioobj bru ■»+2j sub «UOb; sta 

smcreg" 

&stn» dn(stn«) repeat 0(,) 
^statement spec% 

(+specn) ba . case 

(bug) spec (bug) bp ♦wdr2,txtedt/'bl,pl-'Ii7 stn*s(pl p2)t 
dn(stn*) specO spec(stn«) RETURN 
ENDcase GOTO speetl 
(+jpspcn) ba . case 

(bug) spec (bug) ♦wdr2,txtedt/'bl, pi-it/ stn»a(pl p2)t 
dn(stn*) speeO spec(8tn*) bp CALL jspush GOTO Itspec 
ENDcase GOTO jpsptl 
(+dpsplt) ba , 
(dpsptl) ! case 

(bug) spec (bug) bp CALL jspush GOTO Itspec 

(Sd) +statno spec(stno») stno*aO bp CALL dspush GOTO Itspec 

(sp) af , +statnaB spec(stn*) stn*sO bp GALL jspush GOTO Itspec 

ENDcase GOTO newjmp,vctedt 
(+Kgtwd) ba . case 

(bug) spec (bug) +wdr2,txtedt/bl,pl»ii,/ 

stn*«»(pl p2)t dn(stn*) specO spec(stn») RETURN 



3 
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(sp) af , ♦statnam spec(stn«) RETURN 
(ill GOTO wc.mnctrl 
(cd) GOTO wc,ranctrl 
INDcase qm repeat 0(.) 
(+specit) ba . 
(spectl) ! case 

(bug) spec (bug) bp RETURN 
(id) +statno specCstno*) stno#«o bp RETURN 
(ap) af . +statnain spec(stn*) stn*aO bp RETURN 
(be) CALI aoftcd repeat l(.) 
ENDcase GOTO wc,mnctrl 
(+gt2adj) +specit ♦specit +a<ljrrbi; RETURN 
(+f{t3adj) +specit ♦specit ♦specit 
+adjrrbl/ RETURN 
^insert and replace control* 

(+qib) +a<Sjrrbi; ♦atexti +recre; 

♦specit ♦aajfrbi; +atexti ♦recre; 

♦ specit +setgrp,strronp/'rbi; +atextr ♦recrej 

♦specit +Krptst,strmnp/rbl,rb2; +atextr +recrej 
+plxset,strmnp/rbi; +atextr +recre; 



(+qis) 
(♦qrb) 
(♦qrg) 
(+qrp) 
(+qpls2) 



♦specit 
♦specit 
• case 



(ca) displayO GOTO [s] 
ENDcase display GOTO wc,innctrl 
%atexti and r ad^« 
(♦atexti) dummy dl 

(atexla)8 CALL getlit lit»sO ♦atext 

+inslit,8trmnp 

CALL rellit 

case 

(ca) RETURN 

ENDcase %c.% display +adjr®addpos; GOTO atexia 
(♦atextr) dummy dl,d2,d3 

CALL getlit lit*=0 +atext 

♦rpllittStrmnp 

CALL rellit 

case 

(ca) RETURN 

ENDcase %c,% display +addrsadc5pos; ♦atexti RETURN 



d2,d3 stn»»0 
dl *> adjposj 
reset adjdir; 



(♦add) (<31) dummy 
:s set adjdirj 
IF not dl THEN 
(adjla) ; 
:s GOTO adjlcj 
(addlb) : 

IF adjpos THEN BEGIN 

set adjdir; dl «> adjposj 
IF neg d2 THEN BEGIN 

reset adjdir,d2j 

dec d2 END 
ELSE BEGIN 

d2 «> d3; reset d2; 



reset d2: 
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WHILE (13 DO BEGIN 

IF adjpOS THEN BEGIN 
+adj!«lg,strinnpj 
dec 63; 
BUMP d2 END 
ELSE reset d3 END 
END 
END; 
GOTO adjla 8 
(adjlc) i « case 

(u) !s BUMP d2! &stn# dn(stn#) GOTO addlb 
(d) ;s dec d2i Sstn* dn(stn*) GOTO addlb 
<sp) RETURN 
(ca) RETURN 
(cd) GOTO [aj 
ENDcaae repeatO(,) 
END of prmspc 



PRMSPO, SPL CODE 

%.HED""PRMSPC OVERLAY, MOL PROCEDURIS"; .RESj 



PRMSPC OVERLAY, MOL PROCEDURES 



DECLARE POP S0V»137B, sbC«»107B 56POP»s in UTILTY^J 
(setlt) PROCEDURE (setltX) J 

IF .AR - ». DO-SINGLE BUMP setXt3j 
IF .AR NOT > 17B DO-SINGLE RETURNj 
IF .AR <s 32B THEN BEGIN 
IF setlt3 THEN BEGIN 
setlt3*-0; 

IF set,ltl-20B NOT IN (0,10B; DO-SINGLE RETURNS 
.BR^-.AR; pusiisp(0, .BR) ; 
isov diddl; isbc Itrstr END 
ELSE setlt24.setltl-208j 
RETURN END; 
IF .AR » 136B ^command <lelete% THEN BEGIN 
IF cdrlev DO-SINGLE GOTO rstlevj 
RETURN END* 
IF ,AR IN (X00B,132B; THEN GOTO falphar. AR-IOIB/; 
ELSE IF ,AR IN (iiOB,'L; THEN GOTO /"capalphar, AR-UBi; ; 
(setltl)! setlt2«-l; setlt3«-0j RETURN; 
(a) s % K-1-1 % 
cdlev«-+-aetlt2j 

,AR *■ IF cdrlev THEN -99 ELSE 1; 
IF ,AR > cdlev DO-SINQLE cdlev *■ .ARj 
CALL inindpyj GOTO setltl; 
(13) ! % 14-1+1 % 

IF 100 <» caiev DO-SINGLI GOTO setltl; 
cdlev«"+setlt2; 
CALL InradpyO; GOTO setltl; 
(c) : % l«-all % 
cdlev«"100; 
cdrlev<-0; 

dlbrlv «• 37700000B; 
aiblev*-102260SltB; GOTO setltl; 
(d): % l*-l % 
cdlevfrl; 
cdrlev^-o; 

dlbrlv «• 37700000B; 
dlblev«-li200000B; GOTO setltl; 
(e) f % l»rel % 

IF NOT Cdrlev THEN BEGIN 
cdrlev «• cdlev; 
cdlev ♦• 0; 
dibrlv *■ lJ^li05600B; 
CALL InmdpyO END 
ELSE BEGIN 
(rstlev) J 
cdlev «■ cdrlev; 
cdrlev ♦■ 0; 
dlbrlv <• 37700000B; 
CALL InmdpyO END; GOTO setltl; 
it) I GOTO setltl; % for new view now % 



PRMSPC OVERIAY, MOL PROCEDUBES 



.V 116000009} GOTO setltll 



12000000BJ GOTO setltll 



(g)s % branch only on % 

cdbrf*-!; 

(llbscl«»aibscl .A 177777B 
(h)! % branch only off % 

cdbrf^Oj 

dllbscl«-cilbscl .A 177777B .V 
(1) i % content analyzer on % 

c<Jctaf*'lj 

dlbscl«-<llbscl .A 77600377B .V 2l^liOOBi GOTO setltlj 
(j)i % content analyzer off % 

cdictaf*-Oji 

aibscK-aibscl .A 77600377B .V 25O0OB; GOTO setltl; 
(K) : % trail on % 

cdtrlf*"!? 

<31bscl*-dlbscl .A 777771iO0B .V S3Bj GOTO setltlj 
(1) I % trail off % 

cditrlf^-Oi 

aibscK-dlbscl ,A 



(m) : 
(n): 
(o): 
(p): 
(q)8 
IF 



GOTO 
GOTO 
GOTO 
GOTO 



7'77771i.OOB 
setltli 
setltlj 
setltlj 
setltlj 



.V 



SltBj GOTO setltlj 
location numbers on % 
location numbers off '> 

% frozen on % 

% frozen off % 



% 



setltlj 
setltlj 



cdstnf+'lj 

cdstnf^-Oj 

cclfrzf«*lj 

c(lfrzf<-Oj 

% t+'t-l % 

cdtrn ■ -1 THEN cdtrn «- lOOj 
cdtrn4'+-setlt2j 
IF catrn < 1 THEN cdtrn^-lj 
aibtrn^-nuradpytccstrn) J GOTO 
(r) : % t^-t+l % 

IF cdtrn « *1 DO-SINQLE GOTO 

cdtrn«"+setlt2j 

cJlbtrn^-nurndpyfcdtrn) I goto setltlj 
(s) : % t^all % 

cdtrn*"!! 

dlbtrn<"102260SltBj goto setltlj 
(t) i % t«'l % 

cdtrn^'lj 

dlbtrn«-li.200000Bj GOTO setltlj 
(u) i % marKers on % 

cdptr^'lj 

dlbsc2<-dlbsc2 .A 177777B 
(v) » % markers off % 

cdptr«»Oj 

dlbsc2«-dlbsc2 ,A 177777B .V ISliOOOOOBj GOTO setltlj 
(w) I % l»t"all % 

cdtrn*- Ij 

cdlev«>100j 

dlbrlv<"37700000Bj 

cdrlev*-Oj 

dlbtrn,dlblev«-102260SliBj GOTO setltlj 
(x) ! % iBtsl % 

cdtrn^'Cdlev+'lj 



,V 152O00O0BJ GOTO setltlj 
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{31brlv«-3?700000Bj 

c<irlev*"05 

<sil3trn«-aibxev«-li2OO0OOB; goto 
(y): cdblnK«-lj GOTO aetltli % 
{z)t cdftlnk«-Oj GOTO setltli % 



(capa) 
(capb) 
(cape) 
(capa) 
(cape) 
(capf ) 
(capf ) 
(caph) 
(capl) 
(capj) 
(capJc) 
(capl) 



cdindf*-!; 
caindf+'Oi 
ccSnamf*-!; 
cianamf<'0| 
ccJclpf*-!} 
cdclpf«"Oj 
c<Stref*-lj 
cdtref^-Oi 
c<lKeyf<*l| 
cdKeyff'O; 
cdidtf«-lj 
cdidtf«-Oi 



GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 



setltlj 
setltlj 
setltl; 
setltlj 
setltl; 
setltlj 
setltlj 
setltlj 
setltlj 
setltlj 
setltlj 
setltlj 



setltlj 

blank line on % 
blank line off % 
% indenting on % 
% indenting off % 
% names on % 
% names off % 
% clip pictures * 
% dont snow IF too big 
% text format display % 
% tree format display % 
% keyword reordering % 
% normal order % 
% initials, date, on % 
% initials, date, off % 



to fit % 



NULL END. 
DECLARE alpha*(a,b,c,d,e,f,g,h,i,d,k,l,m,n,o,p,q,r,s,t, 

u,v,w,x,y,z) J 
DECLARE capalpha«( capa, capb, cape, capd, cape, capf, capg, caph, capi, 

capj,capk,capl) j 
(inradpy) PROCEDURE; 

dlblev «• numdpydF .MEG cdlev THEN -cdlev ELSE cdlev) j 
dlbrlv*- (IF .NEQ cdlev THEK 2000B 

ELSE lOOOB) ,V (dlbrlv .A 77771i777B)j 
RETURN END. 
(aplit) PROCEDURE (aplitDj 

IF .AR « litlB or .AR » 167B THEK BEGIN 
IF Cdlitf THEN RETURNJ 
aplit2 *■ Oj 
cdlitf «- Ij 

CALL clrlin( RSH $l(cdlitl))j 
WHILE aplit2 <• Siriitlc; DO BEGIN 
CALL aplita(ldchr(litlc,aplit2) ) j 
BUMP aplit2 END END 
ELSE RETURN (aplita (aplitl) ) J 
RETURN END. 
(aplita) PROCEDURE (aplitl) J 

%**# this is the literal input routne ***% 
IF cdlitf THEN BEGIN 
(aplila) I 
cdlit *■ credSj 
cdlitS «• 1; 
cdlit2 ♦■ cdlitii ♦■ -Ij 
cdlitf *• cdlitc *• fcdlit/ fr Oj 
CALL clrlin(cdclrs) ; 
cdlitl ♦■ LSH «l(cdclrs,0)j 
cdlit9 ♦• idirt + 2j 
/■cdlit?; *- /"cdlit?; .A 77770000BJ 
dllbuffcdliti; •• cdlit ♦ liOOOOB ENDJ 
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%»*# now enter the character ***% 
IF aplitl B 151B THEN BEGIN 
%tatis% 

catabl *■ £n(5tab(c(Jlitli) J 
IF cdlitc # THEN BEGIN 

BUMP caiit,cdlit5} 

ailbuffcdliti; ♦•+ kOOOOB ENDj 
IF cdtabX >» cdncol THEN BEGIN 

^terminate linef 

CALL terlin{c(31itS+0); 

dllbuf/'cdliti; *- cdlit .V lliOOOOBj 

caiita «• -ij 

cdlitS <- 3; 

cdlitc ♦• 1; 

cdlitlt «- cdtabl «• fndtab(O) END 
ELSE BEGIN 

dllbufrcdliti; «•+ liOOOOBj 

CdlitS ♦•+ 2j 

cdlit3 *- Cdlitc «- Ij 

cdlitd «• cdlitli «- cdtablj 

cdlit2 •■ cdlit INDj 
cdtab2 «■ RSH -IKcdlitDj 
cdlit *■ puttab(cdlit, cdtabl, cdtab2)} 
cdlitlt <- cdtabl + 1} 
RETURN END; 
CALL ntercn (aplitl); 
IF .AR s -1 THEN GOTO apXilbj 
IF aplitl a 15SB THEN BEGIN 

BUMP Cdlit; 

cdlitl «■ terlin(O); 

dllbufTcdliti; *■ cdlit ,V liOOOOB; 

cdlitlt,cdlit2 *' -l; 

rcdlit; «- 37677577B; 

CdlitS *• 1; 
cdlitc ♦• END 
ELSE BEGIN 

BUMP Cdlitl»,J 

IF Cdlitk > Cdncol THEN BEGIN 
IF Cdlit2 > -1 THEN BEGIN 

^transfer to next line% 

cdlit6 *■ cdlit? «■ cdlit - cdlit2| 

BUMP cdlit6; 

IF Cdlit3 » THEN BEGIN 

%blanK in top of vord% 

CALL mvdown(cdlit,cdlit6,l) J 

/■cdlit2; #•+ lOOOOOB; 

BUMP cdlit2i 

fcdlit2/ *- /•cdlit2; .V 37600000B1 

BUMP cdlit; 

(cdlll) : 

ISterniinate the line5i 
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,AR *• terlin(caiit5-c<3lit7); 
dllbuf/'cdliti;* LSH $lk(c<llit6,o) ,V c(llit2; 
ccllitli«-(c(Slit6-2)»3*c(Jlitc+2-caiit3i 
cdllta «■ -l{ 
cdlitS «• c<aiit6 END 
ELSE IF CdlitS * 2 THEN BEGIN 
%blanK in bottom of wor<J« 
c(Jllt6 «• cdlit7j 
BUMP Cdilit2j 
GOTO Cdlll END 
ELSE BEGIN 

fblanK in middle* 
CALL iavdown{cdlit,cdlit6,l) i 
BUMP cdlit; 
fcdlit2; ♦•+ 200BJ 
BUMP Cdlit2j 

/*cdlit2; «• /cdlitz; .V 376771lOOB5 
GOTO Cdlll END END 
ELSE BEGIN 

%Cdlit2 s -X% 
Cdlitlt <- 0} 
BUMP cdlitlj 
BUMP cdlitX; 
BUMP cdlitj 
cdlitc <" Oj 

dllbufrcdliti; *■ cdllt .V HOOOOB END END ENDj 
RETURN; 
{aplilb)s 

fcredS; *■ 37677S77B; 
GOTO aplila END. 
(terlin) PROCEDURE (trmlil); 

trmlia *• IF trmlil - THEN 77777777B 

ELSE 37777BJ 
dllbuffcdliti; <• (dllbuffcdliti; .A tr!nli2).v LSH $11^ ( trmlil, 0) 5 
BUMP cdlitlj 
BUMP cdlitll 
cdllt? *■* dlrtxj 
IF cdlitl ■ 2#cdnlin THEN BEGIN 
cdlitl *- LSH $i(cdcirs,0) J 
cdlit9 <• «dlrt +2} 
CALL clrlin(cdclr9) END 
ELSE BEGIN 

fcdlit97 *■ /"cdlits; .A 77770000BJ 
CALL clrlint RSH SI (cdlitl)) ENDj 
RETURN (cdlitl) END. 
(nterch) PROCEDURE (ntercl); 
CALL nterca; 

IF ntercl » THEN BEGIN 
cdlit2 *■ cdlit; 
cdlits <• cdlitlt; 
cdlit3 <• cdlitc END; 



11 



PRMSPC OVEBLAY. MOL PROCEDURES 

BUMP CdlitCJ 

IF CdlitC > 2 THEN BEGIN 
BUMP Cdlitj 

IF caiit s Sdiebuf then return (-i)j 

cdlitc «• 0; 

fcdlit; «- 37677577BJ 

BUMP CfllltSj 

diibuf /".xr; «■ diibufrcdiiti; + tooooB endj 

RETURN (0) END. 
(ntercft) PROCEDURE^ 

%aenters the character in the a reg% 

.BR ♦■ 0; 

EXECUTE chrlahrcdlitc;j 

cdtemp ♦• .ARj 

fcdlit; «• cdtemp ,v (/"cdlitj ,A chrinas fcdlitc/ ) 

RETURN END. 

(frzsav) PROCj 

cdlevri;*<cdlevj 

cdtrn/'i;«-cdtrn| 

cdblnK/'i;*-cdblnkj 

RETURN END. 
(dpych) PROCEDUREJ 

CALL aplitt.AR); 

BRS $kl{) END. 
(dspush) PROCEDURE," 

CALL jpsii; 

rjstaclt/ «• cdpsidj 

CALL dpsh; 

/"jstack; ♦• savltO; 

RETURN END. 
(jpsh) PROCEDURE; 

BUMP dstacKj 

ir jatack <« jstckl DO-SINQLE RETURN; 

jstack ♦■ Sjstckd; 

RETURN END. 
<savit) PROCEDURE; 

%create word to save view specs* 
.AR «• LSH liai.IF cdtrn > 62 THEN 

ELSE .AR); 
.AR * LSH S6(IF Cdlev > 62 THEN 

ELSE .AR,.BR); 
.BR *■ "l; 

IF NOT .BR GB cdPrf DO-SINGLE .BR ♦• 0; 

.AR«-LSH SIO; 

.BR ♦• -1; 

IF NOT .BR CB cdnamf DO-SINQLE .BR ♦ 0; 

.AR<-LSH SIO; 

.BR *- -1; 

IF NOT .BR CB Cdstnf DO-SINGLE .BR «• Oj 

.AR«-LSH $10; 

.BR «• -1; 
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IF NOT ,BB CB cdctaf DO-SINGLE .BR «- 0; 

.AR«- LSH $10; 

.BR * -Ij 

IF NOT .BR CB Cdinaf DO-SlNGLi .BR «- Oj 

.AR4* ISH $H)} 

.BR «- -li 

IF NOT .BR CB cdblnk DO-SINGLl .BR «■ Oj 

.AR<- LSH $10; 

• BR «■ -1; 

IF NOT .BR OB cdiref DO-SINGLE .BR ♦• Oj 

.AR4- LSH $1(); 

.BR ♦• -1; 

IF NOT .BR CB cdptr DO-SINGLE .BR «• 0; 

.AR<- LSH SIO; 

.BR <- -1; 

IF NOT .BR CB cdfrzf DO-SINGLE .BR *• Oj 

.AR«- LSH #10; 

.BR «• -1; 

IF NOT .BR OB Cfllceyf DO-SINGLE .BR ♦- Oj 

.AR«- LSH flO; 

.BR ♦• -1; 

IF NOT ,BR CB Cdtrlf DO-SINGLI .BR «• 0; 
.AR*- LSH $10; 

,BR *- -1; 

IF NOT .BR CB CdClpf DO-SINGLE .BR «• Oj 
,AR«- LSH $10; 
RETURN (.AR) END. 
(fechux) PROCEDURE (fhuxa); 
fhux3 *• fhuxS ♦• 0; 
fhuxl ♦- Sl/ffhuxajj 

%fhuxS * start psia (0), fhuxl is length of st no% 
fhuxl ♦• -1; 
fhuxba *- 10; 
fhuxz «■ 20B; 

% fhuxba Is base {10 or 27) » « Is zero* 
WHILE fhuxl <« fhuxl DO BEGIN 

BUMP fhuxl; 

IF fhuxl > fhuxl THEN fhux2 «• 

ELSE fhux2 *■ l(lchr(fhuxa, fhuxl) ; 

IF fhUX2 > 77B THEN fhux2*-+ -1^0B| 

fhux6 «• fhux2 - fhuxz; 

IF fhux6 <« -1 or fhux6 >■ fhuxba THEN BEGIN 

fhuxJi *• getsub(fhuxS) ; 

IF fhuxlt ■ fhUxS THEN RETURN; 

%no such st% 

WHILE fhux3 > 1 DO BEGIN 

IF getftKfhuxlt) THEN RETURN; 
fhuxii. «■ getsuc(fhuxU) ; 
fhux3 «•+ -1 END; 

fhuxS ♦• fhuxli; 

fhux3 ♦• 0; 
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IF fnuxba « 10 THEN BE51N 
fhuxba*'2?j 
fnuxz«"kOB END 

ELSE BEGIN 

fhuxba*'lOj 

fhUX55«-20B END END} 
fhux3 ♦• fhux3»fhuxba + fhux2 - fhuxz ENDj 

BUMP [fechuxj; 

RETURN(fhUX5,0) END. 
{etlit2) PROCEDDREi 

BUMP litrf J 

smtemp «■ %0| 

EXECUTE rfbp2; 

SO «■ sratejRps 

CALL loarfb{0,-X); 

litcb «• ,XRJ 

BUMP frzeptr.XR;; 

litlc «- crpgad/'.XR/j 

litlcl «■ .AR+lj 

riitlc; ♦• 2976; 

flitici; «• -1; 

RETURN END. 
(SOftCd) PROCEDUREJ 

IF spsk s spsKl DO-SINQLE GOTO gpSJ 

spsk ♦•+ •2{ 

RETURN END, 
Ipbug) PROCEDURE {,pbugl)j 

EAX lOj NOP 77B; %short tone% 

pbug2 *■ - (LSH il2{0) ) ♦ edtop - c<ivinc/li ; 

%effective vert pos% 

pbUgl^-IF pbugl .A 1777B > Cdlft THEN .AF-Cdlft ELSE Oj 

%hortz pos% 

pbugk ♦• ( RSH S2(c<lhinc) + pbug3) / cflhincj 
IF .NEG pbug2 THEN pbugS *■ %vert col nuwber% 
ELSE BEGIN 

pbugS *• ( RSH i2(cavinc) ♦ pbug2) / ciJvlnc j 
pbUg6 «■ ,BBj 
fremainderf 

IF pbUgS >» CdlClin THEN BEGIN 
pbugS <• cdclin; 
pbug6 ♦• END{ 
CALL gdlset(,,pbug5) J 

IF NOT pbugS AND gdldotO THEN BUMP pbUgS 
ELSE BEGIN 

IF gdXnulO THEN BEGIN 

IF pbug6 <» RSH $2(CdVinc) THEN pbugS ♦•+ -1 
ELSE BUMP pbUgS END} 
CALL Kdlset(,,pbUf5); 
WHILE gdlnulO DO BEGIN 
pbugS**"!* 
CALL gdlseti,, PbugS) END END ENDJ 
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%vert line now in pbug5% 

CALL r(llset(,,p&ufS){ 

IF gdllclO <s pbugit THEN pmtk *- .AR 

EISE IF gailClO > Pbugk THEN pbuglt *■ .ARj 

%now a potential row and col has been established* 

%D0 actual character selection* 

IF gdlspcO THEN BEGIN 

%there is a special character in the line* 

pbug? *■ fnclchr(pbuglt,,pbug5) J 

*col #,,line #% 

^RETURNS character # in the a and col number in the b% 

pbugii. «• .BR END 
ELSE pbug? «• pbugk - gdllcK) ♦ gaischOj 
CALL g(ailset(,,pbugS) ; 
rcdulpt; *- (pbufli#c<ahinc+cdlft) .V LSH $l2(cdtop-cdvinc*pbuf5,0) ,V 

liOOOBj 

BUMP CdUlptJ 

aiiui *■ aiiui + ij-OoooBj 

RETURN (gdlpsiO.pbUg?) END, 
(fndchr) PROCEDURE (fndchl, ,fndch2) j *col number, line number* 
CALL gdlset; 
fndch3 *■ gdllclO ; 
*col counter* 

fndchk *- cdworRTl/ *■ fdlschUi 
fndchS ♦• cdwork «• gdipsiOi 
fndch? *■ $0; 
EXECUTE rfbp2j 
to *• fndch?.? 

CALL £echcl(l,,»cdworK) J 
*sets up the sdb* 
WHILE fndchj < fndchl DO BEGIN 
BRM i2^¥cdwork;j 
fndch6 *• .ARj 
IF .AR > 1?7B THEN BEGIN 

BUMP fndchk, fndchii,fndch3j 
BRM Sgffcdwork; END 
ELSE BEGIN 

BUMP fndchli,fndch3j 
BRM ."l2i"Scdwork;j 
fndch6 *■ .ABj 

IF .AR « 151B THEN fndch3 ♦• fndtabtf ndch3) 5 
cdwork/'l/ ♦•+ -i; 

CALL fechcl(l,,lcdwork) END END; 
IF fndch6 > 177B THEN BUMP fndchk; 
RETURN (fndchk, fndch3) end. 
.FINISH Of PRMSPC MOL 
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